Changeset 9281


Ignore:
Timestamp:
Apr 25, 2008, 9:12:57 AM (11 years ago)
Author:
gb
Message:

Try to suppress some compiler warnings.
Approximate initial stack bottom for Windows.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lisp-kernel/pmcl-kernel.c

    r8958 r9281  
    132132                (LPTSTR)&buffer,
    133133                0, NULL);
    134   fprintf(stderr, "%s: 0x%x %s\n", message, last_error, buffer);
     134  fprintf(stderr, "%s: 0x%x %s\n", message, (unsigned) last_error, buffer);
    135135  LocalFree(buffer);
    136136}
     
    235235  natural overhead;
    236236  BytePtr base, softlimit, hardlimit;
    237   OSErr err;
    238237  Ptr h = allocate_stack(size+4095);
    239238  protected_area_ptr hprotp = NULL, sprotp;
     
    513512  BytePtr new_start, new_end;
    514513
    515   if (a = find_readonly_area()) {
     514  if ((a = find_readonly_area())) {
    516515    if ((a->active + more) > a->high) {
    517516      return NULL;
     
    552551create_reserved_area(natural totalsize)
    553552{
    554   OSErr err;
    555553  Ptr h;
    556   natural base, n;
     554  natural base;
    557555  BytePtr
    558556    end,
    559557    lastbyte,
    560558    start,
    561     protstart,
    562     p,
    563     want = (BytePtr)IMAGE_BASE_ADDRESS,
    564     try2;
     559    want = (BytePtr)IMAGE_BASE_ADDRESS;
    565560  area *reserved;
    566561
     
    624619  natural
    625620    ndnodes = area_dnode(lisp_global(HEAP_END),lisp_global(HEAP_START)),
    626     npages = (lisp_global(HEAP_END)-lisp_global(HEAP_START)) >> log2_page_size,
    627621    markbits_size = (3*sizeof(LispObj))+((ndnodes+7)>>3),
    628622    reloctab_size = (sizeof(LispObj)*(((ndnodes+((1<<bitmap_shift)-1))>>bitmap_shift)+1));
     
    757751initial_stack_bottom()
    758752{
     753#ifndef WINDOWS
    759754  extern char **environ;
    760755  char *p = *environ;
     
    763758  }
    764759  return (BytePtr)((((natural) p) +4095) & ~4095);
     760#endif
     761#ifdef WINDOWS
     762  return (BytePtr)((current_stack_pointer() + 4095) & ~ 4095);
     763#endif
    765764}
    766765
     
    928927    fputs(other_args, stderr);
    929928  }
    930   fprintf(stderr, "\t-R, --heap-reserve <n>: reserve <n> (default: %ld)\n",
     929  fprintf(stderr, "\t-R, --heap-reserve <n>: reserve <n> (default: %lld)\n",
    931930          reserved_area_size);
    932931  fprintf(stderr, "\t\t bytes for heap expansion\n");
     
    13641363#endif
    13651364
    1366 main(int argc, char *argv[], char *envp[], void *aux)
     1365int
     1366main(int argc, char *argv[]
     1367#ifndef WINDOWS
     1368, char *envp[], void *aux
     1369#endif
     1370)
    13671371{
    13681372  extern int page_size;
     
    13721376#endif
    13731377  extern LispObj load_image(char *);
    1374   long resp;
    1375   BytePtr stack_end;
    13761378  area *a;
    13771379  BytePtr stack_base, current_sp = (BytePtr) current_stack_pointer();
    13781380  TCR *tcr;
    1379   int i;
     1381
    13801382
    13811383#ifdef WINDOWS
     
    16221624}
    16231625
    1624 int
     1626natural
    16251627xStackSpace()
    16261628{
     
    16331635xGetSharedLibrary(char *path, int mode)
    16341636{
     1637  return NULL;
    16351638}
    16361639#else
Note: See TracChangeset for help on using the changeset viewer.