add 32bit support (android only)

This commit is contained in:
pls.153 2022-05-08 10:16:18 +02:00
parent 090482a7ec
commit df358fa5ae
15 changed files with 234 additions and 65 deletions

View file

@ -21,11 +21,14 @@
(defun cc (&rest args)
(apply 'concatenate 'string args))
(defvar *32bit* (<= most-positive-fixnum (expt 2 32)))
(let* ((cache (namestring asdf:*user-cache*))
(p (search "/ecl" cache)))
(setf asdf:*user-cache*
(pathname (cc (subseq cache 0 p)
"/ecl-" #+android "android" #+ios "ios"
(if *32bit* "-32bit" "")
(subseq cache (+ 4 p))))))
;;; *** (1) byte-compile ASDF system ***
@ -47,8 +50,6 @@
;;; *** (2) cross-compile ***
;;; load and prepare cross-compiler
(ext:install-c-compiler)
(setf *features* (remove :interpreter *features*))