mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-09 02:33:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixes for compiling CLX with MSVC

Browse source
This commit is contained in:
jjgarcia 2005-05-18 12:16:49 +00:00
parent c47fd03d9c
commit 7038a85bcf
2 changed files with 26 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/bare.lsp.in
View file

@ -69,7 +69,7 @@
(defun build-module (name sources &key (dir "build:") ((:prefix si::*init-function-prefix*) "EXT"))
(proclaim '(optimize (safety 2) (speed 1)))
(let* ((objects (compile-if-old "build:ext;" sources :system-p t :c-file t :data-file t :h-file t))
(let* ((objects (compile-if-old dir sources :system-p t :c-file t :data-file t :h-file t))
(name (string-downcase name)))
#-dlopen
(warn "~%Unable to build module ~A because dynamic linking is not available on this platform"

48
src/compile.lsp.in
View file

@ -156,29 +156,31 @@ ar -r ../@LIBPREFIX@ecl.@LIBEXT@ *.@OBJEXT@ ../c/all_symbols2.@OBJEXT@; rm *.@OB
;;;
#+WANTS-CLX
(build-module "clx"
'("src:clx;package.lisp"
"src:clx;depdefs.lisp"
"src:clx;clx.lisp"
"src:clx;dependent.lisp"
"src:clx;macros.lisp"
"src:clx;bufmac.lisp"
"src:clx;buffer.lisp"
"src:clx;display.lisp"
"src:clx;gcontext.lisp"
"src:clx;input.lisp"
"src:clx;requests.lisp"
"src:clx;fonts.lisp"
"src:clx;graphics.lisp"
"src:clx;text.lisp"
"src:clx;attributes.lisp"
"src:clx;translate.lisp"
"src:clx;keysyms.lisp"
"src:clx;manager.lisp"
"src:clx;image.lisp"
"src:clx;resource.lisp")
:dir "build:clx;"
:prefix "CLX")
(let ((+clx-src-files+ '("src:clx;package.lisp"
"src:clx;depdefs.lisp"
"src:clx;clx.lisp"
"src:clx;dependent.lisp"
"src:clx;macros.lisp"
"src:clx;bufmac.lisp"
"src:clx;buffer.lisp"
"src:clx;display.lisp"
"src:clx;gcontext.lisp"
"src:clx;input.lisp"
"src:clx;requests.lisp"
"src:clx;fonts.lisp"
"src:clx;graphics.lisp"
"src:clx;text.lisp"
"src:clx;attributes.lisp"
"src:clx;translate.lisp"
"src:clx;keysyms.lisp"
"src:clx;manager.lisp"
"src:clx;image.lisp"
"src:clx;resource.lisp"))
#+:msvc
(c::*cc-flags* (concatenate 'string c::*cc-flags* " -Zm150")))
(pushnew :clx-ansi-common-lisp *features*)
(mapcar #'load +clx-src-files+)
(build-module "clx" +clx-src-files+ :dir "build:clx;" :prefix "CLX"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;