Репозитории ALT
S: | 5.47.0-alt2 |
5.1: | 5.22.1-alt0.M51.1 |
4.1: | 5.14.0-alt2 |
4.0: | 5.14.0-alt2 |
3.0: | 5.9.2-alt3 |
Группа :: Науки/Математика
Пакет: maxima
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: maxima-ecl-ldflags.patch
Скачать
Скачать
diff --git a/src/maxima.system b/src/maxima.system
index ee7ca0f..68c878f 100644
--- a/src/maxima.system
+++ b/src/maxima.system
@@ -71,15 +71,16 @@
(let ((c::*ld-format* (concatenate 'string c::*ld-format* " /LIBPATH:binary-ecl")))
(c::build-fasl "binary-ecl/maxima" :lisp-files '(maxima-lib))))
#-msvc
- (let ((obj (mapcar #'(lambda (p)
- ;; Convert dir/foo.fas to dir/foo.o
- (make-pathname :type "o" :defaults p))
- files)))
+ (let* ((obj (mapcar #'(lambda (p)
+ ;; Convert dir/foo.fas to dir/foo.o
+ (make-pathname :type "o" :defaults p))
+ files))
+ (ldflags (let ((x (symbol-value (find-symbol "*AUTOCONF-LD-FLAGS*"
+ (find-package "MAXIMA")))))
+ (if (and x (not (string= x ""))) (c::split-program-options x)))))
+ (c::build-fasl "binary-ecl/maxima" :lisp-files obj :ld-flags ldflags)
(c::build-program "binary-ecl/maxima" :lisp-files obj
- :ld-flags
- (let ((x (symbol-value (find-symbol "*AUTOCONF-LD-FLAGS*"
- (find-package "MAXIMA")))))
- (if (and x (not (string= x ""))) (list x)))
+ :ld-flags ldflags
:epilogue-code '(progn (cl-user::run)))))))
(defun maxima-binary-pathname ()