mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmpc-machine.lsp: --with-sse=yes build failure fix. Closes #301.

Browse source 
Typo in rewriting cmpc-machine in order to enable cross-compilation for ecl.
Related ticket: https://sourceforge.net/p/ecls/bugs/301/
This commit is contained in:
Daniel Kochmański 2015-02-26 15:48:58 +01:00
parent cb24d0b7b0
commit 0d97f64c60
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpc-machine.lsp
View file

@ -148,7 +148,7 @@
;; hack: sse-pack -> int, but int -> int-sse-pack ;; hack: sse-pack -> int, but int -> int-sse-pack
(let ((r (gethash :int-sse-pack table))) (let ((r (gethash :int-sse-pack table)))
(when r (when r
(setf (rep-type-to-lisp r) 'ext:int-sse-pack))) (setf (rep-type-index r) 'ext:int-sse-pack)))
;; On a second pass, we replace types with more general ones ;; On a second pass, we replace types with more general ones
(loop with fixnum-rep-type = (gethash ':fixnum table) (loop with fixnum-rep-type = (gethash ':fixnum table)
with fixnum-lisp-type = (rep-type-lisp-type fixnum-rep-type) with fixnum-lisp-type = (rep-type-lisp-type fixnum-rep-type)