Skip to content
Snippets Groups Projects
Commit 47ecd607 authored by rtoy's avatar rtoy
Browse files

Only output the FPU type for x86. Don't do anything for any other

architecture.
parent c4e198fd
No related branches found
Tags sse2-packed-base
No related merge requests found
/*
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/save.c,v 1.19.8.1 2008/10/04 14:27:51 rtoy Exp $
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/save.c,v 1.19.8.2 2008/10/06 16:32:31 rtoy Exp $
This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain.
......@@ -148,12 +148,18 @@ save(char *filename, lispobj init_function)
putw(CORE_MAGIC, file);
putw(CORE_VERSION, file);
#ifdef i386
putw(4, file);
#else
putw(3, file);
#endif
putw(version, file);
#ifdef i386
#ifdef FEATURE_SSE2
putw(1, file);
#else
putw(0, file);
#endif
#endif
putw(CORE_NDIRECTORY, file);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment