Changeset 9905


Ignore:
Timestamp:
Jul 7, 2008, 12:27:58 AM (11 years ago)
Author:
gb
Message:

Clean up unused variables, some other things which -Wall complains about.

Location:
trunk/source/lisp-kernel
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/lisp-debug.c

    r9900 r9905  
    182182{
    183183  pc where = xpPC(xp);
    184   opcode the_uuo = *where, instr2;
     184  opcode the_uuo = *where;
    185185  Boolean described = false;
    186186
     
    188188    unsigned
    189189      minor = UUO_MINOR(the_uuo),
    190       rt = 0x1f & (the_uuo >> 21),
    191       ra = 0x1f & (the_uuo >> 16),
    192       rb = 0x1f & (the_uuo >> 11),
    193190      errnum = 0x3ff & (the_uuo >> 16);
    194191
     
    226223  pc where = xpPC(xp);
    227224  opcode the_trap = *where, instr;
    228   int  err_arg1, err_arg2, ra, rs;
    229   char *name = NULL;
     225  int err_arg2, ra, rs;
    230226  Boolean identified = false;
    231227
     
    590586
    591587#ifdef PPC
    592   int a, b, c, d, i;
     588  int a, b, c, d;;
    593589#ifdef PPC64
    594590  for (a = 0, b = 16; a < 16; a++, b++) {
     
    645641  np = (int *) dp;
    646642 
    647   for (i = 0; i < 32; i++) {
    648     fprintf(stderr, "f%02d : 0x%08X%08X (%f)\n", i,  *np++, *np++, *dp++);
     643  for (i = 0; i < 32; i++, np+=2) {
     644    fprintf(stderr, "f%02d : 0x%08X%08X (%f)\n", i,  np[0], np[1], *dp++);
    649645  }
    650646  fprintf(stderr, "FPSCR = %08X\n", xpFPSCR(xp));
  • trunk/source/lisp-kernel/plbt.c

    r4572 r9905  
    320320}
    321321   
    322 const char *
    323 foreign_name_and_offset(void *frame, unsigned *delta)
    324 {
    325   Dl_info info;
    326 #if defined(LINUX) && !defined(PPC64)
    327   void *pc = (void *) (((eabi_c_frame *)frame)->savelr);
    328 #else
    329   void *pc = (void *) (((c_frame *)frame)->savelr);
    330 #endif
    331 #ifndef STATIC
    332   if (dladdr(pc, &info)) {
    333     if (delta) {
    334       *delta = (unsigned long )pc - (unsigned long)info.dli_saddr;
    335     }
    336     return info.dli_sname;
    337   }
    338 #endif
    339   if (delta) {
    340     *delta = 0;
    341   }
    342   return NULL;
    343 }
  • trunk/source/lisp-kernel/ppc-constants.h

    r7624 r9905  
    8383
    8484#define dnode_size (node_size*2)
    85 #define dnode_shift node_shift+1
     85#define dnode_shift (node_shift+1)
    8686
    8787#define INTERRUPT_LEVEL_BINDING_INDEX (1)
  • trunk/source/lisp-kernel/ppc-exceptions.c

    r9067 r9905  
    692692{
    693693  TCR *tcr = TCR_FROM_TSD(xpGPR(xp, rcontext)), *other_tcr;
    694   ExceptionInformation* other_xp;
    695694  int result;
    696695  signed_natural inhibit;
     
    12261225                       int old_valence)
    12271226{
    1228   unsigned oldMQ;
    12291227  OSStatus status = -1;
    12301228  pc program_counter;
     
    12801278{
    12811279  OSStatus err;
    1282   opcode *there = (opcode *) where, instr, errnum;
     1280  opcode *there = (opcode *) where, instr, errnum = 0;
    12831281  int i = TRAP_LOOKUP_TRIES, delta = 0;
    12841282 
     
    13181316  unsigned
    13191317    minor = UUO_MINOR(the_uuo),
    1320     rt = 0x1f & (the_uuo >> 21),
    1321     ra = 0x1f & (the_uuo >> 16),
    13221318    rb = 0x1f & (the_uuo >> 11),
    13231319    errnum = 0x3ff & (the_uuo >> 16);
     
    14371433                  natural arg1, natural arg2, natural arg3, natural arg4, natural arg5)
    14381434{
    1439   sigset_t mask;
    1440   natural  callback_ptr, i;
     1435  natural  callback_ptr;
    14411436  area *a;
    14421437
     
    14981493handle_trap(ExceptionInformation *xp, opcode the_trap, pc where, siginfo_t *info)
    14991494{
    1500   unsigned  instr, err_arg1 = 0, err_arg2 = 0, err_arg3 = 0;
    1501   int       ra, rs, fn_reg = 0;
    1502   char *    error_msg = NULL;
    1503   char      name[kNameBufLen];
    15041495  LispObj   cmain = nrs_CMAIN.vcell;
    1505   Boolean   event_poll_p = false;
    1506   int old_interrupt_level = 0;
    15071496  TCR *tcr = TCR_FROM_TSD(xpGPR(xp, rcontext));
    15081497
     
    16851674handle_error(ExceptionInformation *xp, unsigned errnum, unsigned rb, unsigned continuable, pc where)
    16861675{
    1687   LispObj   pname;
    16881676  LispObj   errdisp = nrs_ERRDISP.vcell;
    16891677
     
    18651853  if ((program_counter < &egc_write_barrier_end) &&
    18661854      (program_counter >= &egc_write_barrier_start)) {
    1867     LispObj *ea = 0, val, root;
     1855    LispObj *ea = 0, val = 0, root = 0;
    18681856    bitvector refbits = (bitvector)(lisp_global(REFBITS));
    18691857    Boolean need_store = true, need_check_memo = true, need_memoize_root = false;
     
    23812369restore_mach_thread_state(mach_port_t thread, ExceptionInformation *pseudosigcontext)
    23822370{
    2383   int i, j;
    23842371  kern_return_t kret;
    23852372  MCONTEXT_T mc = UC_MCONTEXT(pseudosigcontext);
     
    24522439  mach_msg_type_number_t thread_state_count;
    24532440  kern_return_t result;
    2454   int i,j;
    24552441  ExceptionInformation *pseudosigcontext;
    24562442  MCONTEXT_T mc;
     
    25462532  ppc_thread_state_t ts;
    25472533#endif
    2548   mach_msg_type_number_t thread_state_count;
    25492534  ExceptionInformation *pseudosigcontext;
    2550   int i, j, old_valence = tcr->valence;
    2551   kern_return_t result;
     2535  int old_valence = tcr->valence;
    25522536  natural stackp;
    25532537
     
    29882972  mach_port_t
    29892973    thread_exception_port = TCR_TO_EXCEPTION_PORT(tcr),
    2990     target_thread = pthread_mach_thread_np((pthread_t)ptr_from_lispobj(tcr->osid)),
    29912974    task_self = mach_task_self();
    29922975  kern_return_t kret;
  • trunk/source/lisp-kernel/ppc-gc.c

    r9536 r9905  
    121121check_range(LispObj *start, LispObj *end, Boolean header_allowed)
    122122{
    123   LispObj node, *current = start, *prev;
     123  LispObj node, *current = start, *prev = NULL;
    124124  int tag;
    125125  natural elements;
     
    17841784{
    17851785  LispObj obj = *ref, header;
    1786   natural tag = fulltag_of(obj), header_tag, header_subtag;
     1786  natural tag = fulltag_of(obj), header_tag;
    17871787
    17881788  if ((tag == fulltag_misc) &&
     
    20542054  TCR  *other_tcr;
    20552055  natural max_pure_size;
    2056   OSErr err;
    20572056  BytePtr new_pure_start;
    20582057
  • trunk/source/lisp-kernel/ppc_print.c

    r5111 r9905  
    232232  LispObj
    233233    pname = rawsym->pname,
    234     package = rawsym->package_predicate,
    235     pname_header = header_of(pname);
     234    package = rawsym->package_predicate;
    236235
    237236#ifdef PPC64
Note: See TracChangeset for help on using the changeset viewer.