X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicies.lisp;h=043e375f03c6e967e56f5a7f1dabdadadd035199;hb=ef0891e470ff35840def7a5717ede18a58266e76;hp=37177449c215114ab5acb5bfaf4d276af22d26c3;hpb=11802a47e04b0dbfbfec03d8b438fb59f84ce35d;p=sbcl.git diff --git a/src/compiler/policies.lisp b/src/compiler/policies.lisp index 3717744..043e375 100644 --- a/src/compiler/policies.lisp +++ b/src/compiler/policies.lisp @@ -135,3 +135,16 @@ debugger.") (define-optimization-quality store-coverage-data 0 ("no" "no" "yes" "yes")) + +#!+sb-safepoint +(define-optimization-quality inhibit-safepoints + 0 + ("no" "no" "yes" "yes") + "When disabled, the compiler will insert safepoints at strategic +points (loop edges, function prologues) to ensure that potentially +long-running code can be interrupted. + +When enabled, no safepoints will be inserted explicitly. Note that +this declaration does not prevent out-of-line function calls, which +will encounter safepoints unless the target function has also been +compiled with this declaration in effect.")