Changeset 15429


Ignore:
Timestamp:
Aug 1, 2012, 6:40:31 AM (7 years ago)
Author:
gb
Message:

Minor tweaks to compile without warnings with some version of Apple's
clang compiler:

gc.h, image.h, lisp.h: prototypes for some functions that haven't had them.
image.c: remove redundant/inconsistent prototypes.
mach-o-image.c: include "image.h" to pick up those prototypes.
pmcl-kernel.c: change a few function declarations to match prototypes.
x86-constants32.s, x86-subprims32.s, x86-spentry32.s: add copyright notice.

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

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/gc.h

    r15366 r15429  
    235235signed_natural impurify(TCR *, signed_natural);
    236236signed_natural gc_like_from_xp(ExceptionInformation *, signed_natural(*fun)(TCR *, signed_natural), signed_natural);
     237Boolean mark_ephemeral_root(LispObj);
    237238
    238239
  • trunk/source/lisp-kernel/image.c

    r15373 r15429  
    325325load_openmcl_image(int fd, openmcl_image_file_header *h)
    326326{
    327   void make_dynamic_heap_executable(BytePtr, BytePtr);
    328   void xMakeDataExecutable(BytePtr, natural);
    329   void lower_heap_start(BytePtr, area*);
    330   void set_nil(LispObj);
    331327  LispObj image_nil = 0;
    332328  area *a;
  • trunk/source/lisp-kernel/image.h

    r15093 r15429  
    8484} openmcl_image_file_trailer;
    8585
    86 LispObj
     86extern LispObj
    8787load_openmcl_image(int, openmcl_image_file_header*);
    8888
    89 Boolean find_openmcl_image_file_header(int fd, openmcl_image_file_header *h);
     89extern Boolean find_openmcl_image_file_header(int fd, openmcl_image_file_header *h);
     90
     91extern void
     92prepare_to_write_dynamic_space(area *);
     93
     94extern void
     95prepare_to_write_static_space(Boolean);
     96
     97extern area *
     98set_nil(LispObj);
    9099
    91100
  • trunk/source/lisp-kernel/lisp.h

    r14873 r15429  
    100100#define RESTART_SYSCALLS 4
    101101
    102 void
     102extern void
    103103install_signal_handler(int signo, void *handler, unsigned flags);
    104104
     105extern void make_dynamic_heap_executable(void *, void *);
     106extern void xMakeDataExecutable(BytePtr, natural);
     107extern void lower_heap_start(BytePtr, area*);
     108
    105109#endif /* __lisp__ */
  • trunk/source/lisp-kernel/mach-o-image.c

    r15395 r15429  
    2828#include "gc.h"
    2929#include "lisp_globals.h"
     30#include "image.h"
    3031
    3132#if WORD_SIZE==64
  • trunk/source/lisp-kernel/pmcl-kernel.c

    r15425 r15429  
    164164
    165165
    166 void
    167 xMakeDataExecutable(void *, unsigned long);
    168 
    169 void
    170 make_dynamic_heap_executable(LispObj *p, LispObj *q)
     166
     167void
     168make_dynamic_heap_executable(void *p, void *q)
    171169{
    172170  void * cache_start = (void *) p;
     
    21492147
    21502148void
    2151 xMakeDataExecutable(void *start, unsigned long nbytes)
     2149xMakeDataExecutable(BytePtr start, natural nbytes)
    21522150{
    21532151#ifdef PPC
  • trunk/source/lisp-kernel/x86-constants32.s

    r15371 r15429  
     1/*
     2   Copyright (C) 2006-2012 Clozure Associates
     3
     4   This file is part of Clozure CL. 
     5
     6   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
     7   License , known as the LLGPL and distributed with Clozure CL as the
     8   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
     9   which is distributed with Clozure CL as the file "LGPL".  Where these
     10   conflict, the preamble takes precedence. 
     11
     12   Clozure CL is referenced in the preamble as the "LIBRARY."
     13
     14   The LLGPL is also available online at
     15   http://opensource.franz.com/preamble.html
     16*/
     17       
    118define(`eax_l',`eax')
    219define(`ecx_l',`ecx')
  • trunk/source/lisp-kernel/x86-spentry32.s

    r15366 r15429  
     1/*
     2   Copyright (C) 2006-2012 Clozure Associates
     3   This file is part of Clozure CL. 
     4
     5   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
     6   License , known as the LLGPL and distributed with Clozure CL as the
     7   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
     8   which is distributed with Clozure CL as the file "LGPL".  Where these
     9   conflict, the preamble takes precedence. 
     10
     11   Clozure CL is referenced in the preamble as the "LIBRARY."
     12
     13   The LLGPL is also available online at
     14   http://opensource.franz.com/preamble.html
     15*/
    116        include(lisp.s)
    217        _beginfile
  • trunk/source/lisp-kernel/x86-subprims32.s

    r14619 r15429  
     1/*
     2   Copyright (C) 2006-2012 Clozure Associates
     3   This file is part of Clozure CL. 
     4
     5   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
     6   License , known as the LLGPL and distributed with Clozure CL as the
     7   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
     8   which is distributed with Clozure CL as the file "LGPL".  Where these
     9   conflict, the preamble takes precedence. 
     10
     11   Clozure CL is referenced in the preamble as the "LIBRARY."
     12
     13   The LLGPL is also available online at
     14   http://opensource.franz.com/preamble.html
     15*/
    116        include(lisp.s)
    217        _beginfile
Note: See TracChangeset for help on using the changeset viewer.