mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

Add current-thread VM op

Browse source 
* libguile/vm-engine.c (current-thread): New op.
* module/language/cps/effects-analysis.scm (&thread): New memory kind.

* module/language/cps/compile-bytecode.scm (compile-function):
* module/language/cps/effects-analysis.scm (current-thread):
* module/language/cps/types.scm (current-thread):
* module/language/tree-il/primitives.scm (*interesting-primitive-names*):
* module/system/vm/assembler.scm (emit-current-thread): Wire up the new
  op.
This commit is contained in:
Andy Wingo 2015-11-27 16:32:14 +01:00
parent c3240d09b2
commit 8c75a5eb1b
6 changed files with 38 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/system/vm/assembler.scm
View file

@ -116,6 +116,7 @@
emit-unwind
(emit-push-fluid* . emit-push-fluid)
emit-pop-fluid
emit-current-thread
(emit-fluid-ref* . emit-fluid-ref)
(emit-fluid-set* . emit-fluid-set)
(emit-string-length* . emit-string-length)