Ignore:
Timestamp:
Sep 22, 2010, 1:10:30 AM (10 years ago)
Author:
rme
Message:

Eliminate some (but not all) warnings produced when building with
"-Wall -Wno-format". Also a couple of minor changes that enable
clang to build the lisp kernel (at least on x8632 and x8664).

File:
1 edited

Legend:

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

    r14277 r14295  
    4747}
    4848
    49 void
    50 fatal_oserr(StringPtr param, OSErr err)
    51 {
    52   char buf[64];
    53   sprintf(buf," - operating system error %d.", err);
    54   Fatal(param, buf);
    55 }
    56 
    5749void *
    5850lisp_malloc(size_t size)
     
    114106}
    115107#endif
     108
    116109
    117110
     
    206199CommitMemory (LogicalAddress start, natural len)
    207200{
    208   LogicalAddress rc;
    209201#if DEBUG_MEMORY
    210202  fprintf(dbgout, "Committing memory at 0x" LISP ", size 0x" LISP "\n", start, len);
    211203#endif
    212204#ifdef WINDOWS
     205  LogicalAddress rc;
     206
    213207  if ((start < ((LogicalAddress)nil_value)) &&
    214208      (((LogicalAddress)nil_value) < (start+len))) {
     
    228222  return true;
    229223#else
    230   int i, err;
     224  int i;
    231225  void *addr;
    232226
     
    504498                    natural free_space_size)
    505499{
    506   extern int page_size;
    507500  area *a = active_dynamic_area;
    508   BytePtr newlimit, protptr, zptr;
    509   int psize = page_size;
     501  BytePtr newlimit;
     502
    510503  if (free_space_size) {
    511504    BytePtr lowptr = a->active;
     
    519512    }
    520513  }
     514  return false;
    521515}
    522516
     
    718712  BytePtr
    719713    curfree = a->active,
    720     target_low = target->low,
    721     tenured_low = tenured_area->low;
    722   natural
    723     dynamic_dnodes = area_dnode(curfree, a->low),
    724     new_tenured_dnodes = area_dnode(curfree, tenured_area->low);
     714    target_low = target->low;
     715  natural new_tenured_dnodes = area_dnode(curfree, tenured_area->low);
    725716  bitvector
    726717    refbits = tenured_area->refbits,
Note: See TracChangeset for help on using the changeset viewer.