<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<html lang="en">
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
<title>
GitLab
</title>
</head>
<body>
<style type="text/css">
img {
max-width: 100%; height: auto;
}
</style>
<div class="content">
<h3>
Raymond Toy pushed to branch rtoy-mmap-anon-control-and-binding-stacks
at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a>
</h3>
<h4>
Commits:
</h4>
<ul>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/a6339d00b6053c2da0af58097137f05495361afd">a6339d00</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2016-05-10T21:33:43-07:00</i>
</div>
<pre class="commit-message" style="white-space: pre-wrap">Remove #if 0 code.</pre>
</li>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/67f59a2d4b2c552570cfe337852cebeb5e85d008">67f59a2d</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2016-05-10T21:33:57-07:00</i>
</div>
<pre class="commit-message" style="white-space: pre-wrap">Add some comments.</pre>
</li>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/38fdea64c854d5f0e13f1b16ea94fa974caeb340">38fdea64</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2016-05-10T21:34:14-07:00</i>
</div>
<pre class="commit-message" style="white-space: pre-wrap">Fix indentation, add some comments.</pre>
</li>
</ul>
<h4>3 changed files:</h4>
<ul>
<li class="file-stats">
<a href="#620f2ecad2bb6f74b2fcd0134963a841" style="text-decoration: none">
src/lisp/save.c
</a>
</li>
<li class="file-stats">
<a href="#ad29afc395839758d41094872298bd0d" style="text-decoration: none">
src/lisp/solaris-os.c
</a>
</li>
<li class="file-stats">
<a href="#c0b0bf6d71bc5fc7e6d50d69c8aa2413" style="text-decoration: none">
src/lisp/validate.c
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id="620f2ecad2bb6f74b2fcd0134963a841">
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/75d4ea457191cd39b6da88becc5560039fc009ca...38fdea64c854d5f0e13f1b16ea94fa974caeb340#diff-0">
<strong>
src/lisp/save.c
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="background: #ffdddd; color: #000000">--- a/src/lisp/save.c
</span><span style="background: #ddffdd; color: #000000">+++ b/src/lisp/save.c
</span><span style="color: #aaaaaa">@@ -136,11 +136,9 @@ save(char *filename, lispobj init_function, int sse2_mode)
</span> }
printf("[Undoing binding stack... ");
fflush(stdout);
<span style="background: #ffdddd; color: #000000">-#if 0
- unbind_to_here((lispobj *) BINDING_STACK_START);
-#else
</span><span style="background: #ddffdd; color: #000000">+
</span> unbind_to_here((lispobj *) binding_stack);
<span style="background: #ffdddd; color: #000000">-#endif
</span><span style="background: #ddffdd; color: #000000">+
</span> SetSymbolValue(CURRENT_CATCH_BLOCK, 0);
SetSymbolValue(CURRENT_UNWIND_PROTECT_BLOCK, 0);
SetSymbolValue(EVAL_STACK_TOP, 0);
<span style="color: #aaaaaa">@@ -282,11 +280,9 @@ save_executable(char *filename, lispobj init_function)
</span>
printf("[Undoing binding stack... ");
fflush(stdout);
<span style="background: #ffdddd; color: #000000">-#if 0
- unbind_to_here((lispobj *)BINDING_STACK_START);
-#else
</span><span style="background: #ddffdd; color: #000000">+
</span> unbind_to_here((lispobj *)binding_stack);
<span style="background: #ffdddd; color: #000000">-#endif
</span><span style="background: #ddffdd; color: #000000">+
</span> SetSymbolValue(CURRENT_CATCH_BLOCK, 0);
SetSymbolValue(CURRENT_UNWIND_PROTECT_BLOCK, 0);
SetSymbolValue(EVAL_STACK_TOP, 0);
</code></pre>
<br>
</li>
<li id="ad29afc395839758d41094872298bd0d">
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/75d4ea457191cd39b6da88becc5560039fc009ca...38fdea64c854d5f0e13f1b16ea94fa974caeb340#diff-1">
<strong>
src/lisp/solaris-os.c
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="background: #ffdddd; color: #000000">--- a/src/lisp/solaris-os.c
</span><span style="background: #ddffdd; color: #000000">+++ b/src/lisp/solaris-os.c
</span><span style="color: #aaaaaa">@@ -409,7 +409,9 @@ os_vm_address_t round_up_sparse_size(os_vm_address_t addr)
</span> /*
* An array of the start of the spaces which should have holes placed
* after them. Must not include the dynamic spaces because the size
<span style="background: #ffdddd; color: #000000">- * of the dynamic space can be controlled from the command line.
</span><span style="background: #ddffdd; color: #000000">+ * of the dynamic space can be controlled from the command line. Also
+ * must not include the binding and control stacks. They're handled
+ * below.
</span> */
static os_vm_address_t spaces[] = {
READ_ONLY_SPACE_START, STATIC_SPACE_START
</code></pre>
<br>
</li>
<li id="c0b0bf6d71bc5fc7e6d50d69c8aa2413">
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/75d4ea457191cd39b6da88becc5560039fc009ca...38fdea64c854d5f0e13f1b16ea94fa974caeb340#diff-2">
<strong>
src/lisp/validate.c
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="background: #ffdddd; color: #000000">--- a/src/lisp/validate.c
</span><span style="background: #ddffdd; color: #000000">+++ b/src/lisp/validate.c
</span><span style="color: #aaaaaa">@@ -124,7 +124,7 @@ validate_stacks()
</span> ensure_space(control_stack, control_stack_size);
#else
/* Map the conrol stack wherever we have space */
<span style="background: #ffdddd; color: #000000">- control_stack = (lispobj*) os_validate(NULL, control_stack_size);
</span><span style="background: #ddffdd; color: #000000">+ control_stack = (lispobj*) os_validate(NULL, control_stack_size);
</span>
#if (defined(i386) || defined(__x86_64))
control_stack_end = (void*)control_stack + control_stack_size;
<span style="color: #aaaaaa">@@ -136,6 +136,7 @@ validate_stacks()
</span> binding_stack = (lispobj *) BINDING_STACK_START;
ensure_space(binding_stack, binding_stack_size);
#else
<span style="background: #ddffdd; color: #000000">+ /* Map the binding stack wherever we have space */
</span> binding_stack = (lispobj*) os_validate(NULL, binding_stack_size);
#endif
#ifdef sparc
</code></pre>
<br>
</li>
</div>
<div class="footer" style="margin-top: 10px">
<p style="color: #777; font-size: small">
—
<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/compare/75d4ea457191cd39b6da88becc5560039fc009ca...38fdea64c854d5f0e13f1b16ea94fa974caeb340">View it on GitLab</a>.
<br>
You're receiving this email because of your account on gitlab.common-lisp.net.
If you'd like to receive fewer emails, you can
adjust your notification settings.
</p>
</div>
</body>
</html>