mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Revert "Merge branch 'develop' into 'develop'"

Browse source 
This reverts commit b75802f122, reversing
changes made to 5e3ccb1955.
This commit is contained in:
Daniel Kochmanski 2017-05-26 14:38:52 +02:00
parent a095f6a4ee
commit cf416f6fd4
20 changed files with 18 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpmain.lsp
View file

@ -262,7 +262,7 @@ void ~A(cl_object cblock)
* circular chain. This disables the garbage collection of
* the library until _ALL_ functions in all modules are unlinked.
*/
cl_object current = OBJNULL, next = Cblock;
cl_object current, next = Cblock;
~:{
current = ecl_make_codeblock();
current->cblock.next = next;
@ -313,7 +313,6 @@ extern int
ecl_init_module(OBJNULL, ~A);
~A
} ECL_CATCH_ALL_END;
return 0;
}
")

2
src/cmp/cmptop.lsp
View file

@ -443,7 +443,7 @@
(wt-nl "volatile cl_object lex" *level* "[" *max-lex* "];"))
(unless (eq closure-type 'CLOSURE)
(wt-nl "cl_object " *volatile* "env0 = ECL_NIL;"))
(wt-nl "cl_object " *volatile* "env0;"))
(when (plusp *max-env*)
;; Closure structure has to be marked volatile or else GCC may