diff options
| -rw-r--r-- | gas/README-vms-dbg | 127 | ||||
| -rw-r--r-- | gas/obsolete/gdb-blocks.c | 289 | ||||
| -rw-r--r-- | gas/obsolete/gdb-file.c | 80 | ||||
| -rw-r--r-- | gas/obsolete/gdb-lines.c | 241 | ||||
| -rw-r--r-- | gas/obsolete/gdb-symbols.c | 129 | ||||
| -rw-r--r-- | gas/obsolete/gdb.c | 110 | ||||
| -rw-r--r-- | gas/ver960.c | 1 |
7 files changed, 0 insertions, 977 deletions
diff --git a/gas/README-vms-dbg b/gas/README-vms-dbg deleted file mode 100644 index 61ab6dd..0000000 --- a/gas/README-vms-dbg +++ /dev/null @@ -1,127 +0,0 @@ - 1) You should be aware that GNU-C, as with any other decent compiler, -will do things when optimization is turned on that you may not expect. -Sometimes intermediate results are not written to variables, if they are only -used in one place, and sometimes variables that are not used at all will not be -written to the symbol table. Also, parameters to inline functions are often -inaccessible. You can see the assembly code equivalent by using KP7 in the -debugger, and from this you can tell if in fact a variable should have the -value that you expect. You can find out if a variable lives withing a register -by doing a 'show symbol/addr'. - - 2) Overly complex data types, such as: - -int (*(*(*(*(*(* sarr6)[1])[1])[2])[3])[4])[5]; - -will not be debugged properly, since the debugging record overflows an internal -debugger buffer. gcc-as will convert these to *void as far as the debugger -symbol table is concerned, which will avoid any problems, and the assembler -will give you a message informing you that this has happened. - - 3) You must, of course, compile and link with /debug. If you link -without debug, you still get traceback table in the executable, but there is no -symbol table for variables. - - 4) Included in the patches to VMS.C are fixes to two bugs that are -unrelated to the changes that I have made. One of these made it impossible to -debug small programs sometimes, and the other caused the debugger to become -confused about which routine it was in, and give this incorrect info in -tracebacks. - - 5) If you are using the GNU-C++ compiler, you should modify the -compiler driver file GNU_CC:[000000]GCC.COM (or GXX.COM). If you have a -seperate GXX.COM, then you need to change one line in GXX.COM to: -$ if f$locate("D",p2) .ne. P2_Length then Debug = " ""-G0""" - Notice zero---> ^ -If you are using a GCC.COM that does both C and C++, add the following lines to -GCC.COM: - -$! -$! Use old style debugging records for VMS -$! -$ if (Debug.nes."" ).and. Plus then Debug = " ""-G0""" - -after the variables Plus and Debug are set. The reason for this, is that C++ -compiler by default generates debugging records that are more complex, -with many new syntactical elements that allow for the new features of the -language. The -G0 switch tells the C++ compiler to use the old style debugging -records. Until the debugger understands C++ there is not any point to try and -use the expanded syntax. - - 6) When you have nested scopes, i.e.: -main(){ - int i; - {int i; - {int i; -};};} -and you say "EXAM i" the debugger needs to figure out which variable you -actually want to reference. I have arranged things to define a block to the -debugger when you use brackets to enter a new scope, so in the example above, -the variables would be described as: -TEST\main\i -TEST\main\$0\i -TEST\main\$0\$0\i -At each level, the block name is a number with a dollar sign prefix, the -numbers start with 0 and count upward. When you say EXAM i, the debugger looks -at the current PC, and decides which block it is currently in. It works from -the innermost level outward until it finds a block that has the variable "i" -defined. You can always specify the scope explicitly. - - 7) With C++, there can be a lot of inline functions, and it would be -rather restrictive to force the user to debug the program by converting all of -the inline functions to normal functions. What I have done is to essentially -"add" (with the debugger) source lines from the include files that contain the -inline functions. Thus when you step into an inline function it appears as if -you have called the function, and you can examine variables and so forth. -There are several *very* important differences, however. First of all, since -there is no function call involved, you cannot step over the inline function -call - you always step into it. Secondly, since the same source lines are used -in many locations, there is a seperate copy of the source for *each* usage. -Without this, breakpoints do not work, since we must have a 1-to-1 mapping -between source lines and PC. - Since you cannot step over inline function calls, it can be a real pain -if you are not really interested in what is going on for that function call. -What I have done is to use the "-D" switch for the assembler to toggle the -following behavior. With the "-D" switch, all inline functions are included in -the object file, and you can debug everything. Without the "-D" switch -(default case with VMS implementation), inline functions are included *only* if -they did not come from system header files (i.e. from GNU_CC_INCLUDE: or -GNU_GXX_INCLUDE:). Thus, without the switch the user only debugs his/her own -inline functions, and not the system ones. (This is especially useful if you do -a lot of stream I/O in C++). This probably will not provide enough granularity -for many users, but for now this is still somewhat experimental, and I would -like to reflect upon it and get some feedback before I go any further. -Possible solutions include an interactive prompting, a logical name, or a new -command line option in gcc.c (which is then passed through somehow to the guts -of the assembler). - The inline functions from header files appear after the source code -for the source file. This has the advantage that the source file itself is -numbered with the same line numbers that you get with an editor. In addition, -the entire header file is not included, since the assembler makes a list of -the min and max source lines that are used, and only includes those lines from -the first to the last actually used. (It is easy to change it to include the -whole file). - - 8) When you are debugging C++ objects, the object "this" is refered to -as "$this". Actually, the compiler writes it as ".this", but the period is -not good for the debugger, so I have a routine to convert it to a $. (It -actually converts all periods to $, but only for variables, since this was -intended to allow us to access "this". - - 9) If you use the asm("...") keyword for global symbols, you will not -be able to see that symbol with the debugger. The reason is that there are two -records for the symbol stored in the data structures of the assembler. One -contains the info such as psect number and offset, and the other one contains -the information having to do with the data type of the variable. In order to -debug as symbol, you need to be able to coorelate these records, and the only -way to do this is by name. The record with the storage attributes will take -the name used in the asm directive, and the record that specifies the data type -has the actual variable name, and thus when you use the asm directive to change -a variable name, the symbol becomes invisible. - - 10) Older versions of the compiler ( GNU-C 1.37.92 and earlier) place -global constants in the text psect. This is unfortunate, since to the linker -this appears to be an entry point. I sent a patch to the compiler to RMS, -which will generate a .const section for these variables, and patched the -assembler to put these variables into a psect just like that for normal -variables, except that they are marked NOWRT. static constants are still -placed in the text psect, since there is no need for any external access. diff --git a/gas/obsolete/gdb-blocks.c b/gas/obsolete/gdb-blocks.c deleted file mode 100644 index 15cd347..0000000 --- a/gas/obsolete/gdb-blocks.c +++ /dev/null @@ -1,289 +0,0 @@ -/* gdb_block.c - Deal with GDB blocks - 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. */ - -/* - * Implements .gdbblk, .gdbbeg, .gdbend concepts. - * No other modules need to know the details of these concepts. - * - * During assembly, note the addresses of block beginnings and ends. - * Each block has a begin-address, an end-address, a number, and - * a place in the GDB symbol file to place the 2 addresses. - * Block numbers are 0, 1, ... with no gaps. - * - * During assembly, we don't actually know the addresses, so they are - * expressed as {frag-address + offset-in-frag}. - * - * gdb_block_begin () - * Call once before using this package. - * - * gdb_block_beg (number, frag, offset) - * Note a block beginning. - * - * gdb_block_end (number, frag, offset) - * Note a block end. - * - * gdb_block_position (block_number, pos) - * Remember, after assembly, to copy a structure containing - * the beginning and ending addresses of block number - * block_number into the gdb file, starting at position pos. - * - * gdb_block_emit (block_number, where_in_gdb_symbol_file) - * Emit a block begin/end locations to a place in the GDB symbol - * file. - * - * uses: - * xmalloc() - * gdb_alter() - */ - - -#include "as.h" - -/* - * malloc() calls are considered expensive. So ... - * - * We remember blocks by making a tree, and each block number has a leaf. - * The tree is 3 levels, and we don't allocate interior nodes until they - * are needed. Both leaves and interior nodes are allocated in lumps, - * which should save on malloc() calls. Due to the way we break up a - * block number to navigate through the tree, we insist that lumps of - * memory contain a power of 2 items each. Powers of 2 may differ - * for different levels of tree. - */ - -/* - * A block number: - * - * +---------------+---------------+---------------+ - * | | | | - * | Z2-part bits | Z1-part bits | Z0-part bits | - * | | | | - * +---------------+---------------+---------------+ - * - * High order Low order - * - * "Z" is short for "siZe". - */ - -#define LOG_2_Z0 (8) /* How many bits are in Z0 part? */ -#define LOG_2_Z1 (8) /* How many bits are in Z1 part? */ -#define LOG_2_Z2 (8) /* How many bits are in Z2 part? */ - -#define BLOCK_NUMBER_LIMIT (1 << (LOG_2_Z0 + LOG_2_Z1 + LOG_2_Z2)) - /* What is the first block number that is */ - /* "too big"? */ - -struct gdb_block -{ - fragS * begin_frag; - fragS * end_frag; - long int begin_where_in_frag; - long int end_where_in_frag; - long int position; /* In GDB symbols file. */ -}; - -typedef struct gdb_block node_0_T [1 << LOG_2_Z0]; - -typedef node_0_T * node_1_T [1 << LOG_2_Z1]; - -typedef node_1_T * node_2_T [1 << LOG_2_Z2]; - - -static long int highest_block_number_seen; -static node_2_T * root; /* 3 level tree of block locations. */ - -static node_2_T * new_2 (); - - -char * xmalloc(); -void gdb_alter(); - -void -gdb_block_begin () -{ - root = new_2 (); - highest_block_number_seen = -1; -} - -static node_0_T * -new_0 () -{ - register node_0_T * place; - - place = (node_0_T *) xmalloc ((long)sizeof(node_0_T)); - bzero ((char *)place, sizeof(node_0_T)); - return (place); -} - -static node_1_T * -new_1 () -{ - register node_1_T * place; - - place = (node_1_T *) xmalloc ((long)sizeof(node_1_T)); - bzero ((char *)place, sizeof(node_1_T)); - return (place); -} - -static node_2_T * -new_2 () -{ - register node_2_T * place; - - place = (node_2_T *) xmalloc ((long)sizeof(node_2_T)); - bzero ((char *)place, sizeof(node_2_T)); - return (place); -} - -static struct gdb_block * -find (block_number) - register long int block_number; -{ - register node_1_T ** pp_1; - register node_0_T ** pp_0; - register struct gdb_block * b; - register int index0; - register int index1; - register int index2; - -#ifdef SUSPECT - if (block_number >= BLOCK_NUMBER_LIMIT) - { - as_fatal ("gdb_block: Block number = %ld.", block_number); - } -#endif - - index2 = block_number >> (LOG_2_Z0 + LOG_2_Z1); - index1 = block_number >> (LOG_2_Z0) & ((1 << LOG_2_Z1) - 1); - index0 = block_number & ((1 << LOG_2_Z0) - 1); - pp_1 = * root + index2; - if (* pp_1 == 0) - { - * pp_1 = new_1 (); - } - pp_0 = ** pp_1 + index1; - if (* pp_0 == 0) - { - * pp_0 = new_0 (); - } - b = ** pp_0 + index0; - return (b); -} - - -static struct gdb_block * -find_create (block_number) - long int block_number; -{ - if (highest_block_number_seen < block_number) - { - highest_block_number_seen = block_number; - } - return (find (block_number)); -} - -void -gdb_block_beg (block_number, frag, offset) - long int block_number; - fragS * frag; - long int offset; -{ - struct gdb_block * pointer; - - pointer = find_create (block_number); -#ifdef SUSPECT - if (pointer -> begin_frag != 0) - { - as_warn( "Overwriting begin_frag for block # %ld.", block_number ); - } - if (pointer -> begin_where_in_frag != 0) - { - as_warn( "Overwriting begin_where_in_frag for block # %ld.", block_number ); - } -#endif - pointer -> begin_frag = frag; - pointer -> begin_where_in_frag = offset; -} - -void -gdb_block_end (block_number, frag, offset) - long int block_number; - fragS * frag; - long int offset; -{ - struct gdb_block * pointer; - - pointer = find_create (block_number); -#ifdef SUSPECT - if (pointer -> end_frag != 0) - { - as_warn( "Overwriting end_frag for block # %ld.", block_number ); - } - if (pointer -> end_where_in_frag != 0) - { - as_warn( "Overwriting end_where_in_frag for block # %ld.", block_number ); - } -#endif - pointer -> end_frag = frag; - pointer -> end_where_in_frag = offset; -} - -void -gdb_block_position (block_number, pos) - long int block_number; - long int pos; -{ - struct gdb_block * pointer; - - pointer = find_create (block_number); - if (pointer -> position != 0) - { - as_warn( "Overwriting old position %ld. in block #%ld.", - pointer -> position, block_number); - } - pointer -> position = pos; -} - -void -gdb_block_emit () -{ - long int block_number; - struct gdb_block * b; - - for (block_number = 0; - block_number <= highest_block_number_seen; - block_number ++) - { - b = find (block_number); - if (b -> begin_frag) - { - gdb_alter (b -> position, - (long int) - (b -> begin_frag -> fr_address + b -> begin_where_in_frag)); - } - if (b -> end_frag) - { - gdb_alter (b -> position + sizeof( long int ), - (long int) - (b -> end_frag -> fr_address + b -> end_where_in_frag)); - } - } -} - -/* end: gdb_block.c */ diff --git a/gas/obsolete/gdb-file.c b/gas/obsolete/gdb-file.c deleted file mode 100644 index 42938ad..0000000 --- a/gas/obsolete/gdb-file.c +++ /dev/null @@ -1,80 +0,0 @@ -/* gdb_file.c -o/s specific- - 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. */ - -#include <stdio.h> -#include <sys/types.h> -#include <sys/stat.h> - -static long file_len; -static FILE *file; -extern long get_len(); - - -void -gdb_file_begin () -{ -} - -void -gdb_file_end() -{ -} - -long int /* Open file, return size. 0: failed. */ -gdb_file_size (filename) -char *filename; -{ - struct stat stat_buf; - void as_perror(); - - file= fopen (filename, "r"); - if (file == (FILE *)NULL) - { - as_perror ("Can't read GDB symbolic information file", filename); - file_len=0; - } else { - (void)fstat (fileno(file), &stat_buf); - file_len=stat_buf . st_size; - } - return ((long int)file_len ); -} - -void /* Read the file, don't return if failed. */ -gdb_file_read (buffer, filename) - char * buffer; - char * filename; -{ - register off_t size_wanted; - void as_perror(); - - size_wanted = file_len; - if (fread (buffer, size_wanted, 1, file) != 1) - { - as_perror ("Can't read GDB symbolic info file", filename); - as_fatal ("Failed to read %ld. chars of GDB symbolic information", - size_wanted); - } - if (fclose(file)==EOF) - { - as_perror ("Can't close GDB symbolic info file", filename); - as_fatal ("I quit in disgust"); - } -} - -/* end: gdb_file.c */ diff --git a/gas/obsolete/gdb-lines.c b/gas/obsolete/gdb-lines.c deleted file mode 100644 index 6af0c42..0000000 --- a/gas/obsolete/gdb-lines.c +++ /dev/null @@ -1,241 +0,0 @@ -/* gdb-lines.c -- Deal with source lines for GDB format - Copyright (C) 1989, Free Software Foundation. - -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. */ - -#include "as.h" -#include "obstack.h" -#include "frags.h" - -/* This is a souce file that we're storing .gdbline information about */ -/* .gdbline refers to files by numbers. We keep a linked list of them - We store a list of vectors for each file. Each element of the vector - contains a line-number, a frag, and an offset within the frag. */ -struct g_line_file { - int gdb_line_file_file_number; /* fnum */ - int gdb_line_file_number_of_vectors; /* nv */ - long gdb_line_table_offset; /* taboff */ - struct g_line_vector *gdb_line_file_vectors; /* vec */ - struct g_line_file *gdb_line_file_next_file; /* nfile */ -}; - -/* In order to save on space (We expect there to be LOTS of lines), we - store line-number/address pairs in bunches of MAX_LINES_PER_VECTOR - (originally fifty). Each vector descriptor contains - - gdb_line_number_of_lines the number of line-number/address pairs - actually in this vector. - gdb_line_lines The actual vector. - - gdb_line_next_vector The next vector descriptor in the linked list. - */ -struct g_line_vector { - int gdb_line_number_of_lines; /* nlines */ - struct g_line *gdb_line_lines; /* lines */ - struct g_line_vector *gdb_line_next_vector; /* nvec */ -}; - - -/* A .gdbline wants to store a line-number/address pair. Unfortunatly, we - don't know addresses yet, so we store frag/offset which we can use to - generate the address at write-out time. */ -struct g_line { - int gdb_line_line_number; /* lno */ - fragS *gdb_line_frag; /* lfrag */ - int gdb_line_offset; /* loff */ -}; - - -/* The following is stolen from (gdb's? (or is it gcc's?) symseg.h file. - These structures describe the format for the line# symbolic info in - the gdb symbolic info file. This info is not particularly useful, - except to show what we're writing into. . . */ - -/* Source-file information. - This describes the relation between source files and line numbers - and addresses in the program text. */ - -struct sourcevector -{ - int length; /* Number of source files described */ - struct source *source[1]; /* Descriptions of the files */ -}; - -/* Line number and address of one line. */ - -struct line -{ - int linenum; - int address; -}; - -/* All the information on one source file. */ - -struct source -{ - char *name; /* Name of file */ - int nlines; /* Number of lines that follow */ - struct line lines[1]; /* Information on each line */ -}; - -/* End of text from symseg.h */ - -struct g_line_file *first_file; - -struct g_line_file *add_file(); -struct g_line_vector *add_vector(); - -#define MAX_LINES_PER_VECTOR 50 /* lpv */ - -/* We've been told that the current address corresponds to line LINENO in - file FILE_NUMBER */ -void -gdb_line(file_number,lineno) -int file_number; -int lineno; -{ - struct g_line_file *f; - struct g_line_vector *v; - struct g_line *line; - - for(f=first_file;f;f=f->gdb_line_file_next_file) - if(f->gdb_line_file_file_number==file_number) - break; - if(!f) f=add_file(file_number); - v=f->gdb_line_file_vectors; - if(!v || v->gdb_line_number_of_lines==MAX_LINES_PER_VECTOR) - v=add_vector(f); - line= &(v->gdb_line_lines)[v->gdb_line_number_of_lines]; - v->gdb_line_number_of_lines++; - line->gdb_line_line_number=lineno; - line->gdb_line_frag= frag_now; - line->gdb_line_offset=obstack_next_free(&frags)-frag_now->fr_literal; -} - -/* We've been told where to store the .line table for file FILE_NUMBER */ -void -gdb_line_tab(file_number,offset) -int file_number; -int offset; -{ - struct g_line_file *f; - - for(f=first_file;f;f=f->gdb_line_file_next_file) - if(f->gdb_line_file_file_number==file_number) - break; - if(!f) f=add_file(file_number); - if(f->gdb_line_table_offset) - as_warn("Ignoring duplicate .linetab for file %d",file_number); - else - f->gdb_line_table_offset=offset; -} - -/* We've got a file (FILE_NUMBER) that we haven't heard about before. Create - an entry for it, etc. . . */ -struct g_line_file * -add_file(file_number) -{ - struct g_line_file *f; - - f=(struct g_line_file *)xmalloc(sizeof(struct g_line_file)); - f->gdb_line_file_file_number=file_number; - f->gdb_line_table_offset = 0; - f->gdb_line_file_number_of_vectors=0; - f->gdb_line_file_vectors=(struct g_line_vector *)0; - f->gdb_line_file_next_file=first_file; - first_file=f; - return f; -} - -/* The last vector for file F is full. Allocate a new one. */ -struct g_line_vector * -add_vector(f) -struct g_line_file *f; -{ - struct g_line_vector *tmp_vec; - - f->gdb_line_file_number_of_vectors++; - tmp_vec=(struct g_line_vector *)xmalloc(sizeof(struct g_line_vector)); - tmp_vec->gdb_line_number_of_lines=0; - tmp_vec->gdb_line_lines=(struct g_line *)xmalloc(MAX_LINES_PER_VECTOR*sizeof(struct g_line)); - tmp_vec->gdb_line_next_vector=f->gdb_line_file_vectors; - f->gdb_line_file_vectors=tmp_vec; - return tmp_vec; -} - -/* All done. Time to write the stuff out. This should be fun. */ -void -gdb_lines_emit() -{ - struct g_line_file *f; - struct g_line_vector *v,*old_v,*v_tmp; - struct g_line *current_line_pointer; /* lp */ - int n; - int previous_line_number; - long int current_gdb_segment_pos; - unsigned int number_of_things_in_table; - - for(f=first_file;f;f=f->gdb_line_file_next_file) { - if(!f->gdb_line_table_offset) { - as_warn("No .gdblinetab given for file %d. Ignoring .gdbline(s) for it."); - continue; - } - - /* Reverse the linked list of vectors. Since we built it - last entry first, this puts the first entry at the start - of the list. Thus we can manage to put out low line #s - at the start of the table. . .*/ - v_tmp=0; - old_v=0; - for(v=f->gdb_line_file_vectors;v;v=v_tmp) { - v_tmp=v->gdb_line_next_vector; - v->gdb_line_next_vector=old_v; - old_v=v; - } - f->gdb_line_file_vectors=old_v; - - /* Start putting stuff at the beginning of the table */ - current_gdb_segment_pos=f->gdb_line_table_offset+sizeof(long int); - previous_line_number = -2; - number_of_things_in_table = 0; - - /* For every vector in the table: */ - for(v=f->gdb_line_file_vectors;v;v=v->gdb_line_next_vector) { - current_line_pointer=v->gdb_line_lines; - - /* For every element of every vector */ - for(n=v->gdb_line_number_of_lines;n;n--) { - - if(current_line_pointer->gdb_line_line_number != previous_line_number + 1) { - /* Write out the line number */ - gdb_alter(current_gdb_segment_pos, -(current_line_pointer->gdb_line_line_number)); - current_gdb_segment_pos+=sizeof(long int); - number_of_things_in_table++; - } - previous_line_number = current_line_pointer->gdb_line_line_number; - - /* And write out the address */ - gdb_alter(current_gdb_segment_pos,current_line_pointer->gdb_line_frag->fr_address+current_line_pointer->gdb_line_offset); - current_gdb_segment_pos+=sizeof(long int); - number_of_things_in_table++; - - current_line_pointer++; - } - } - gdb_alter(f->gdb_line_table_offset,number_of_things_in_table); - } -} diff --git a/gas/obsolete/gdb-symbols.c b/gas/obsolete/gdb-symbols.c deleted file mode 100644 index 8bd8f7d..0000000 --- a/gas/obsolete/gdb-symbols.c +++ /dev/null @@ -1,129 +0,0 @@ -/* gdb_symbols.c - Deal with symbols for GDB format - 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. */ - -/* - * During assembly, note requests to place symbol values in the GDB - * symbol file. When symbol values are known and the symbol file is - * in memory, place the symbol values in the memory image of the file. - * - * This has static data: it is not data_sharable. - * - * gdb_symbols_begin () - * Call once before using this package. - * - * gdb_symbols_fixup (symbolP, offset_in_file) - * Remember to put the value of a symbol into the GDB file. - * - * gdb_symbols_emit () - * Perform all the symbol fixups. - * - * uses: - * xmalloc() - * gdb_alter() - */ - -#include "as.h" -#include "struc-symbol.h" - -#define SYM_GROUP (100) /* We allocate storage in lumps this big. */ - - -struct gdb_symbol /* 1 fixup request. */ -{ - symbolS * gs_symbol; - long int gs_offset; /* Where in GDB symbol file. */ -}; -typedef struct gdb_symbol gdb_symbolS; - -struct symbol_fixup_group -{ - struct symbol_fixup_group * sfg_next; - gdb_symbolS sfg_item [SYM_GROUP]; -}; -typedef struct symbol_fixup_group symbol_fixup_groupS; - -static symbol_fixup_groupS * root; -static short int used; /* # of last slot used. */ - /* Counts down from SYM_GROUP. */ - -static symbol_fixup_groupS * /* Make storage for some more reminders. */ -new_sfg () -{ - symbol_fixup_groupS * newP; - char * xmalloc(); - - newP = (symbol_fixup_groupS *) xmalloc ((long)sizeof(symbol_fixup_groupS)); - newP -> sfg_next = root; - used = SYM_GROUP; - root = newP; - return (newP); -} - - -void -gdb_symbols_begin () -{ - root = 0; - (void)new_sfg (); -} - - -void /* Build a reminder to put a symbol value */ -gdb_symbols_fixup (sy, offset) /* into the GDB symbol file. */ - symbolS * sy; /* Which symbol. */ - long int offset; /* Where in GDB symbol file. */ -{ - register symbol_fixup_groupS * p; - register gdb_symbolS * q; - - p = root; - know( used >= 0 ); - if ( used == 0) - { - p = new_sfg (); - } - q = p -> sfg_item + -- used; - q -> gs_symbol = sy; - q -> gs_offset = offset; -} - -void -gdb_symbols_emit () /* Append GDB symbols to object file. */ -{ - symbol_fixup_groupS * sfgP; - void gdb_alter(); - - for (sfgP = root; sfgP; sfgP = sfgP -> sfg_next) - { - register gdb_symbolS * gsP; - register gdb_symbolS * limit; - - limit = sfgP -> sfg_item + - (sfgP -> sfg_next ? 0 : used); - for (gsP = sfgP -> sfg_item + SYM_GROUP - 1; - gsP >= limit; - gsP --) - { - gdb_alter (gsP -> gs_offset, - (long int) gsP -> gs_symbol -> sy_value); - } - } -} - -/* end: gdb_symbols.c */ diff --git a/gas/obsolete/gdb.c b/gas/obsolete/gdb.c deleted file mode 100644 index 4896e2e..0000000 --- a/gas/obsolete/gdb.c +++ /dev/null @@ -1,110 +0,0 @@ -/* gdb.c -as supports gdb- - 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. */ - -/* This code is independent of the underlying operating system. */ - -#include "as.h" - -static long int size; /* 0 or size of GDB symbol file. */ -static char * where; /* Where we put symbol file in memory. */ - -#define SUSPECT /* JF */ - -long int /* 0 means don't call gdb_... routines */ -gdb_begin (filename) /* because we failed to establish file */ - /* in memory. */ - char * filename; /* NULL: we have nothing to do. */ -{ - long int gdb_file_size(); - char * xmalloc(); - void gdb_file_begin(); - void gdb_file_read(); - void gdb_block_begin(); - void gdb_symbols_begin(); - - gdb_file_begin(); - size = 0; - if (filename && (size = gdb_file_size (filename))) - { - where = xmalloc( (long) size ); - gdb_file_read (where, filename); /* Read, then close file. */ - gdb_block_begin(); - gdb_symbols_begin(); - } - return (size); -} - -void -gdb_end() -{ - void gdb_file_end(); - - gdb_file_end(); -} - -void -gdb_emit (filename) /* Append GDB symbols to object file. */ -char * filename; -{ - void gdb_block_emit(); - void gdb_symbols_emit(); - void gdb_lines_emit(); - void output_file_append(); - - gdb_block_emit (); - gdb_symbols_emit (); - gdb_lines_emit(); - output_file_append (where, size, filename); -} - - - -/* - Notes: We overwrite what was there. - We assume all overwrites are 4-char numbers. -*/ - -void -gdb_alter (offset, value) /* put value into GDB file + offset. */ - long int offset; - long int value; -{ - void md_number_to_chars(); - -#ifdef SUSPECT - if (offset > size - sizeof(long int) || offset < 0) - { - as_warn( "gdb_alter: offset=%d. size=%ld.\n", offset, size ); - return; - } -#endif - -#ifdef B_OUT - /* Symbol info will be used on the host machine only (only executable - * code is actually downloaded to the i80960). Therefore, leave it - * in host byte order. - */ - - *(long int *)(where + offset) = value; -#else - md_number_to_chars (where + offset, value, 4); -#endif -} - -/* end: gdb.c */ diff --git a/gas/ver960.c b/gas/ver960.c deleted file mode 100644 index fee9000..0000000 --- a/gas/ver960.c +++ /dev/null @@ -1 +0,0 @@ -char gas960_ver[]= "gas960 1.2, Fri Nov 30 03:01:56 PST 1990"; |