]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blobdiff - gdb/gould-tdep.c
import gdb-1999-07-07 post reformat
[thirdparty/binutils-gdb.git] / gdb / gould-tdep.c
index 1916cc2ac69fd14517217781df62816264167b17..3c70165a5c0b311d9a71c32977775cb4efaf43e0 100644 (file)
 /* OBSOLETE      CORE_ADDR memaddr; */
 /* OBSOLETE      FILE *stream; */
 /* OBSOLETE { */
-/* OBSOLETE    unsigned char buffer[MAXLEN]; */
-/* OBSOLETE    register int i; */
-/* OBSOLETE    register char *d; */
-/* OBSOLETE    register int bestmask; */
-/* OBSOLETE    unsigned best; */
-/* OBSOLETE    int temp, index, bestlen; */
-/* OBSOLETE  */
-/* OBSOLETE    read_memory (memaddr, buffer, MAXLEN); */
-/* OBSOLETE  */
-/* OBSOLETE    bestmask = 0; */
-/* OBSOLETE    index = -1; */
-/* OBSOLETE    best = 0xffffffff; */
-/* OBSOLETE    for (i = 0; i < NOPCODES; i++) */
-/* OBSOLETE    { */
-/* OBSOLETE            register unsigned int opcode = gld_opcodes[i].opcode; */
-/* OBSOLETE            register unsigned int mask = gld_opcodes[i].mask; */
-/* OBSOLETE            register unsigned int len = gld_opcodes[i].length; */
-/* OBSOLETE            register unsigned int test; */
-/* OBSOLETE  */
-/* OBSOLETE            /* Get possible opcode bytes into integer *x/ */
-/* OBSOLETE            test = buffer[0] << 24; */
-/* OBSOLETE            test |= buffer[1] << 16; */
-/* OBSOLETE            test |= buffer[2] << 8; */
-/* OBSOLETE            test |= buffer[3]; */
-/* OBSOLETE  */
-/* OBSOLETE            /* Mask with opcode and see if match *x/ */
-/* OBSOLETE            if ((opcode & mask) == (test & mask)) */
-/* OBSOLETE            { */
-/* OBSOLETE                    /* See if second or third match *x/ */
-/* OBSOLETE                    if (index >= 0) */
-/* OBSOLETE                    { */
-/* OBSOLETE                            /* Take new one if it looks good *x/ */
-/* OBSOLETE                            if (bestlen == MAXLEN && len == MAXLEN) */
-/* OBSOLETE                            { */
-/* OBSOLETE                                    /* See if lower bits matched *x/ */
-/* OBSOLETE                                    if (((bestmask & 3) == 0) && */
-/* OBSOLETE                                        ((mask & 3) != 0)) */
-/* OBSOLETE                                    { */
-/* OBSOLETE                                            bestmask = mask; */
-/* OBSOLETE                                            bestlen = len; */
-/* OBSOLETE                                            best = test; */
-/* OBSOLETE                                            index = i; */
-/* OBSOLETE                                    } */
-/* OBSOLETE                            } */
-/* OBSOLETE                    } */
-/* OBSOLETE                    else */
-/* OBSOLETE                    { */
-/* OBSOLETE                            /* First match, save it *x/ */
-/* OBSOLETE                            bestmask = mask; */
-/* OBSOLETE                            bestlen = len; */
-/* OBSOLETE                            best = test; */
-/* OBSOLETE                            index = i; */
-/* OBSOLETE                    } */
-/* OBSOLETE            } */
-/* OBSOLETE    } */
-/* OBSOLETE  */
-/* OBSOLETE    /* Handle undefined instructions.  *x/ */
-/* OBSOLETE    if (index < 0) */
-/* OBSOLETE    { */
-/* OBSOLETE            fprintf (stream, "undefined   0%o",(buffer[0]<<8)+buffer[1]); */
-/* OBSOLETE            return 2; */
-/* OBSOLETE    } */
-/* OBSOLETE  */
-/* OBSOLETE    /* Print instruction name *x/ */
-/* OBSOLETE    fprintf (stream, "%-12s", gld_opcodes[index].name); */
-/* OBSOLETE  */
-/* OBSOLETE    /* Adjust if short instruction *x/ */
-/* OBSOLETE    if (gld_opcodes[index].length < 4) */
-/* OBSOLETE    { */
-/* OBSOLETE            best >>= 16; */
-/* OBSOLETE            i = 0; */
-/* OBSOLETE    } */
-/* OBSOLETE    else */
-/* OBSOLETE    { */
-/* OBSOLETE            i = 16; */
-/* OBSOLETE    } */
-/* OBSOLETE  */
-/* OBSOLETE    /* Dump out instruction arguments *x/ */
-/* OBSOLETE    for (d = gld_opcodes[index].args; *d; ++d) */
-/* OBSOLETE    { */
-/* OBSOLETE        switch (*d) */
-/* OBSOLETE        { */
-/* OBSOLETE            case 'f': */
-/* OBSOLETE                fprintf (stream, "%d",  (best >> (7 + i)) & 7); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'r': */
-/* OBSOLETE                fprintf (stream, "r%d", (best >> (7 + i)) & 7); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'R': */
-/* OBSOLETE                fprintf (stream, "r%d", (best >> (4 + i)) & 7); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'b': */
-/* OBSOLETE                fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'B': */
-/* OBSOLETE                fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'v': */
-/* OBSOLETE                fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'V': */
-/* OBSOLETE                fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'X': */
-/* OBSOLETE                temp = (best >> 20) & 7; */
-/* OBSOLETE                if (temp) */
-/* OBSOLETE                    fprintf (stream, "r%d", temp); */
-/* OBSOLETE                else */
-/* OBSOLETE                    putc ('0', stream); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'A': */
-/* OBSOLETE                temp = (best >> 16) & 7; */
-/* OBSOLETE                if (temp) */
-/* OBSOLETE                    fprintf (stream, "(b%d)", temp); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'S': */
-/* OBSOLETE                fprintf (stream, "#%d", best & 0x1f); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'I': */
-/* OBSOLETE                fprintf (stream, "#%x", best & 0xffff); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'O': */
-/* OBSOLETE                fprintf (stream, "%x", best & 0xffff); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'h': */
-/* OBSOLETE                fprintf (stream, "%d", best & 0xfffe); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'd': */
-/* OBSOLETE                fprintf (stream, "%d", best & 0xfffc); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'T': */
-/* OBSOLETE                fprintf (stream, "%d", (best >> 8) & 0xff); */
-/* OBSOLETE                break; */
-/* OBSOLETE            case 'N': */
-/* OBSOLETE                fprintf (stream, "%d", best & 0xff); */
-/* OBSOLETE                break; */
-/* OBSOLETE            default: */
-/* OBSOLETE                putc (*d, stream); */
-/* OBSOLETE                break; */
-/* OBSOLETE        } */
-/* OBSOLETE    } */
-/* OBSOLETE  */
-/* OBSOLETE    /* Return length of instruction *x/ */
-/* OBSOLETE    return (gld_opcodes[index].length); */
+/* OBSOLETE     unsigned char buffer[MAXLEN]; */
+/* OBSOLETE     register int i; */
+/* OBSOLETE     register char *d; */
+/* OBSOLETE     register int bestmask; */
+/* OBSOLETE     unsigned best; */
+/* OBSOLETE     int temp, index, bestlen; */
+/* OBSOLETE  */
+/* OBSOLETE     read_memory (memaddr, buffer, MAXLEN); */
+/* OBSOLETE  */
+/* OBSOLETE     bestmask = 0; */
+/* OBSOLETE     index = -1; */
+/* OBSOLETE     best = 0xffffffff; */
+/* OBSOLETE     for (i = 0; i < NOPCODES; i++) */
+/* OBSOLETE     { */
+/* OBSOLETE             register unsigned int opcode = gld_opcodes[i].opcode; */
+/* OBSOLETE             register unsigned int mask = gld_opcodes[i].mask; */
+/* OBSOLETE             register unsigned int len = gld_opcodes[i].length; */
+/* OBSOLETE             register unsigned int test; */
+/* OBSOLETE  */
+/* OBSOLETE             /* Get possible opcode bytes into integer *x/ */
+/* OBSOLETE             test = buffer[0] << 24; */
+/* OBSOLETE             test |= buffer[1] << 16; */
+/* OBSOLETE             test |= buffer[2] << 8; */
+/* OBSOLETE             test |= buffer[3]; */
+/* OBSOLETE  */
+/* OBSOLETE             /* Mask with opcode and see if match *x/ */
+/* OBSOLETE             if ((opcode & mask) == (test & mask)) */
+/* OBSOLETE             { */
+/* OBSOLETE                     /* See if second or third match *x/ */
+/* OBSOLETE                     if (index >= 0) */
+/* OBSOLETE                     { */
+/* OBSOLETE                             /* Take new one if it looks good *x/ */
+/* OBSOLETE                             if (bestlen == MAXLEN && len == MAXLEN) */
+/* OBSOLETE                             { */
+/* OBSOLETE                                     /* See if lower bits matched *x/ */
+/* OBSOLETE                                     if (((bestmask & 3) == 0) && */
+/* OBSOLETE                                         ((mask & 3) != 0)) */
+/* OBSOLETE                                     { */
+/* OBSOLETE                                             bestmask = mask; */
+/* OBSOLETE                                             bestlen = len; */
+/* OBSOLETE                                             best = test; */
+/* OBSOLETE                                             index = i; */
+/* OBSOLETE                                     } */
+/* OBSOLETE                             } */
+/* OBSOLETE                     } */
+/* OBSOLETE                     else */
+/* OBSOLETE                     { */
+/* OBSOLETE                             /* First match, save it *x/ */
+/* OBSOLETE                             bestmask = mask; */
+/* OBSOLETE                             bestlen = len; */
+/* OBSOLETE                             best = test; */
+/* OBSOLETE                             index = i; */
+/* OBSOLETE                     } */
+/* OBSOLETE             } */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE     /* Handle undefined instructions.  *x/ */
+/* OBSOLETE     if (index < 0) */
+/* OBSOLETE     { */
+/* OBSOLETE             fprintf (stream, "undefined   0%o",(buffer[0]<<8)+buffer[1]); */
+/* OBSOLETE             return 2; */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE     /* Print instruction name *x/ */
+/* OBSOLETE     fprintf (stream, "%-12s", gld_opcodes[index].name); */
+/* OBSOLETE  */
+/* OBSOLETE     /* Adjust if short instruction *x/ */
+/* OBSOLETE     if (gld_opcodes[index].length < 4) */
+/* OBSOLETE     { */
+/* OBSOLETE             best >>= 16; */
+/* OBSOLETE             i = 0; */
+/* OBSOLETE     } */
+/* OBSOLETE     else */
+/* OBSOLETE     { */
+/* OBSOLETE             i = 16; */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE     /* Dump out instruction arguments *x/ */
+/* OBSOLETE     for (d = gld_opcodes[index].args; *d; ++d) */
+/* OBSOLETE     { */
+/* OBSOLETE         switch (*d) */
+/* OBSOLETE         { */
+/* OBSOLETE             case 'f': */
+/* OBSOLETE                 fprintf (stream, "%d",  (best >> (7 + i)) & 7); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'r': */
+/* OBSOLETE                 fprintf (stream, "r%d", (best >> (7 + i)) & 7); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'R': */
+/* OBSOLETE                 fprintf (stream, "r%d", (best >> (4 + i)) & 7); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'b': */
+/* OBSOLETE                 fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'B': */
+/* OBSOLETE                 fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'v': */
+/* OBSOLETE                 fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'V': */
+/* OBSOLETE                 fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'X': */
+/* OBSOLETE                 temp = (best >> 20) & 7; */
+/* OBSOLETE                 if (temp) */
+/* OBSOLETE                     fprintf (stream, "r%d", temp); */
+/* OBSOLETE                 else */
+/* OBSOLETE                     putc ('0', stream); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'A': */
+/* OBSOLETE                 temp = (best >> 16) & 7; */
+/* OBSOLETE                 if (temp) */
+/* OBSOLETE                     fprintf (stream, "(b%d)", temp); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'S': */
+/* OBSOLETE                 fprintf (stream, "#%d", best & 0x1f); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'I': */
+/* OBSOLETE                 fprintf (stream, "#%x", best & 0xffff); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'O': */
+/* OBSOLETE                 fprintf (stream, "%x", best & 0xffff); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'h': */
+/* OBSOLETE                 fprintf (stream, "%d", best & 0xfffe); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'd': */
+/* OBSOLETE                 fprintf (stream, "%d", best & 0xfffc); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'T': */
+/* OBSOLETE                 fprintf (stream, "%d", (best >> 8) & 0xff); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             case 'N': */
+/* OBSOLETE                 fprintf (stream, "%d", best & 0xff); */
+/* OBSOLETE                 break; */
+/* OBSOLETE             default: */
+/* OBSOLETE                 putc (*d, stream); */
+/* OBSOLETE                 break; */
+/* OBSOLETE         } */
+/* OBSOLETE     } */
+/* OBSOLETE  */
+/* OBSOLETE     /* Return length of instruction *x/ */
+/* OBSOLETE     return (gld_opcodes[index].length); */
 /* OBSOLETE } */
 /* OBSOLETE  */
 /* OBSOLETE /* */
 /* OBSOLETE  * Find the number of arguments to a function. */
 /* OBSOLETE  *x/ */
 /* OBSOLETE findarg(frame) */
-/* OBSOLETE    struct frame_info *frame; */
+/* OBSOLETE     struct frame_info *frame; */
 /* OBSOLETE { */
-/* OBSOLETE    register struct symbol *func; */
-/* OBSOLETE    register unsigned pc; */
+/* OBSOLETE     register struct symbol *func; */
+/* OBSOLETE     register unsigned pc; */
 /* OBSOLETE  */
 /* OBSOLETE #ifdef notdef */
-/* OBSOLETE    /* find starting address of frame function *x/ */
-/* OBSOLETE    pc = get_pc_function_start (frame->pc); */
+/* OBSOLETE     /* find starting address of frame function *x/ */
+/* OBSOLETE     pc = get_pc_function_start (frame->pc); */
 /* OBSOLETE  */
-/* OBSOLETE    /* find function symbol info *x/ */
-/* OBSOLETE    func = find_pc_function (pc); */
+/* OBSOLETE     /* find function symbol info *x/ */
+/* OBSOLETE     func = find_pc_function (pc); */
 /* OBSOLETE  */
-/* OBSOLETE    /* call blockframe code to look for match *x/ */
-/* OBSOLETE    if (func != NULL) */
+/* OBSOLETE     /* call blockframe code to look for match *x/ */
+/* OBSOLETE     if (func != NULL) */
 /* OBSOLETE                 return (func->value.block->nsyms / sizeof(int)); */
 /* OBSOLETE #endif */
 /* OBSOLETE  */
 /* OBSOLETE     /* Setup toplevel frame structure *x/ */
 /* OBSOLETE     frame->pc = read_pc(); */
 /* OBSOLETE     frame->next_frame = 0; */
-/* OBSOLETE     frame->frame = read_register (SP_REGNUM);      /* Br2 *x/ */
+/* OBSOLETE     frame->frame = read_register (SP_REGNUM);       /* Br2 *x/ */
 /* OBSOLETE  */
 /* OBSOLETE     /* Search for this frame (start at current Br2) *x/ */
 /* OBSOLETE     do */
 /* OBSOLETE     { */
-/* OBSOLETE    pointer = framechain(frame); */
-/* OBSOLETE    frame->next_frame = frame->frame; */
-/* OBSOLETE    frame->frame = pointer; */
-/* OBSOLETE    frame->pc = FRAME_SAVED_PC(frame); */
+/* OBSOLETE     pointer = framechain(frame); */
+/* OBSOLETE     frame->next_frame = frame->frame; */
+/* OBSOLETE     frame->frame = pointer; */
+/* OBSOLETE     frame->pc = FRAME_SAVED_PC(frame); */
 /* OBSOLETE     } */
 /* OBSOLETE     while (frame->next_frame != thisframe); */
 /* OBSOLETE #endif */
 /* OBSOLETE  */
 /* OBSOLETE     /* stop gap for now, end at __base3 *x/ */
 /* OBSOLETE     if (thisframe->pc == 0) */
-/* OBSOLETE    return 0; */
+/* OBSOLETE     return 0; */
 /* OBSOLETE  */
 /* OBSOLETE     return pointer; */
 /* OBSOLETE } */
 /* OBSOLETE  */
 /* OBSOLETE     /* If no stack given, read register Br1 "(sp)" *x/ */
 /* OBSOLETE     if (!frame->frame) */
-/* OBSOLETE    prevsp = read_register (SP_REGNUM); */
+/* OBSOLETE     prevsp = read_register (SP_REGNUM); */
 /* OBSOLETE     else */
-/* OBSOLETE    prevsp = frame->frame; */
+/* OBSOLETE     prevsp = frame->frame; */
 /* OBSOLETE  */
 /* OBSOLETE     /* Check function header, case #2 *x/ */
 /* OBSOLETE     value = read_memory_integer (func, 4); */
 /* OBSOLETE     if (value) */
 /* OBSOLETE     { */
-/* OBSOLETE    /* 32bit call push value stored in function header *x/ */
-/* OBSOLETE    prevsp += value; */
+/* OBSOLETE     /* 32bit call push value stored in function header *x/ */
+/* OBSOLETE     prevsp += value; */
 /* OBSOLETE     } */
 /* OBSOLETE     else */
 /* OBSOLETE     { */
-/* OBSOLETE    /* read half-word from suabr at start of function *x/ */
-/* OBSOLETE    prevsp += read_memory_integer (func + 10, 2); */
+/* OBSOLETE     /* read half-word from suabr at start of function *x/ */
+/* OBSOLETE     prevsp += read_memory_integer (func + 10, 2); */
 /* OBSOLETE     } */
 /* OBSOLETE  */
 /* OBSOLETE     return (prevsp); */