Commit e2056ec6 authored by rtoy's avatar rtoy
Browse files

Change type of fpu_type from int* to fpu_mode_t*. This gets rid of a 

compiler warning in lisp.c that passes in fpu_mode_t*.
parent b17a70c7

lisp/core.h

+2 −2
Original line number Diff line number Diff line 
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/core.h,v 1.7 2008/11/12 15:04:24 rtoy Exp $ */

/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/core.h,v 1.8 2008/12/10 02:46:12 rtoy Exp $ */



#ifndef _CORE_H_

#define _CORE_H_
@@ -34,6 +34,6 @@ struct ndir_entry { 
#endif

};



extern lispobj load_core_file(char *file, int *fpu_type);

extern lispobj load_core_file(char *file, fpu_mode_t *fpu_type);



#endif /* _CORE_H_ */

lisp/coreparse.c

+4 −4
Original line number Diff line number Diff line 
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/coreparse.c,v 1.12 2008/11/12 15:04:24 rtoy Exp $ */

/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/coreparse.c,v 1.13 2008/12/10 02:46:12 rtoy Exp $ */

#include <stdio.h>

#include <sys/types.h>

#include <sys/file.h>
@@ -75,7 +75,7 @@ process_directory(int fd, long *ptr, int count) 
}



lispobj

load_core_file(char *file, int* fpu_type)

load_core_file(char *file, fpu_mode_t* fpu_type)

{

    int fd = open(file, O_RDONLY), count;
@@ -126,9 +126,9 @@ load_core_file(char *file, int* fpu_type) 
			  version, *ptr);

	      }

	      if (len == 4) {

		  *fpu_type = ptr[1];

                *fpu_type = (fpu_mode_t) ptr[1];

	      } else {

		  *fpu_type = 0;

		  *fpu_type = AUTO;

	      }

	      break;