Skip to content

Commit

Permalink
common_lisp PG: add option to increase dynamic space
Browse files Browse the repository at this point in the history
Useful for SBCL on 32-bit platforms.
See: sharplispers/ironclad#80
  • Loading branch information
barracuda156 committed Nov 13, 2024
1 parent f285a2a commit c345c39
Showing 1 changed file with 12 additions and 2 deletions.
14 changes: 12 additions & 2 deletions _resources/port1.0/group/common_lisp-1.0.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -50,6 +50,12 @@ default common_lisp.build_run yes
options common_lisp.systems
default common_lisp.systems {*.asd}

# This option may be needed for some ports on 32-bit systems.
# https://github.com/sharplispers/ironclad/issues/80
# It does not affect 64-bit builds, regardless of its value.
options common_lisp.large_heap
default common_lisp.large_heap no

categories-append lisp

use_configure no
Expand Down Expand Up @@ -204,10 +210,14 @@ proc common_lisp::asdf_operate {op name build_system_path} {
}

proc common_lisp::sbcl_asdf_operate {op name build_system_path} {
global prefix
global prefix build_arch
ui_info "Execute asdf:${op} at ${name} by SBCL"

common_lisp::run "${prefix}/bin/sbcl --no-sysinit --no-userinit --non-interactive" "--eval" ${op} ${name} ${build_system_path}
if {[option common_lisp.large_heap] && (${build_arch} in [list i386 ppc])} {
common_lisp::run "${prefix}/bin/sbcl --dynamic-space-size 1500 --no-sysinit --no-userinit --non-interactive" "--eval" ${op} ${name} ${build_system_path}
} else {
common_lisp::run "${prefix}/bin/sbcl --no-sysinit --no-userinit --non-interactive" "--eval" ${op} ${name} ${build_system_path}
}
}

proc common_lisp::ecl_asdf_operate {op name build_system_path} {
Expand Down

0 comments on commit c345c39

Please sign in to comment.