/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56.4.1 by rtoy, Thu Jun 19 21:08:17 2008 UTC revision 1.56.4.2 by rtoy, Thu Dec 18 21:50:18 2008 UTC
# Line 123  Line 123 
123    
124  (alien:def-alien-routine "save" (alien:boolean)  (alien:def-alien-routine "save" (alien:boolean)
125    (file c-call:c-string)    (file c-call:c-string)
126    (initial-function (alien:unsigned #.vm:word-bits)))    (initial-function (alien:unsigned #.vm:word-bits))
127      (sse2-mode c-call:int))
128    
129  #+:executable  #+:executable
130  (alien:def-alien-routine "save_executable" (alien:boolean)  (alien:def-alien-routine "save_executable" (alien:boolean)
# Line 292  Line 293 
293            #+:executable            #+:executable
294          (if executable          (if executable
295              (save-executable core-name initial-function)              (save-executable core-name initial-function)
296              (save core-name initial-function))              (save core-name initial-function #+sse2 1 #-sse2 0))
297          #-:executable          #-:executable
298          (save core-name initial-function))))          (save core-name initial-function #+sse2 1 #-sse2 0))))
299    nil)    nil)
300    
301    

Legend:
Removed from v.1.56.4.1  
changed lines
  Added in v.1.56.4.2

  ViewVC Help
Powered by ViewVC 1.1.5