suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add additional instruction to invoke module linking.

Browse Source
This commit is contained in:
Danny Yoo 2013-02-25 17:20:11 -07:00
parent d5c7298263
commit 2b51e06c76
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
whalesong/compiler/compiler.rkt
View File

@ -277,11 +277,13 @@
(append-instruction-sequences
(make-TestAndJump (make-TestTrue (make-ModulePredicate a-module-name 'linked?))
linked)
;; TODO: raise an exception here that says that the module hasn't been
;; TODO: try to link dynamically, using plt.runtime.currentModuleLoader.
(make-Perform (make-LinkModule! a-module-name))
;; If that fails, finally raise an exception here that says that the module hasn't been
;; linked yet.
(make-DebugPrint (make-Const
(format "DEBUG: the module ~a hasn't been linked in!!!"
(ModuleLocator-name a-module-name))))
#;(make-DebugPrint (make-Const
(format "DEBUG: the module ~a hasn't been linked in!!!"
(ModuleLocator-name a-module-name))))
(make-Goto (make-Label (LinkedLabel-label on-return)))
linked
(make-TestAndJump (make-TestTrue

4
whalesong/compiler/il-structs.rkt
View File

@ -473,6 +473,9 @@
(define-struct: InstallContinuationMarkEntry! () #:transparent)
;; Use the dynamic module loader to link the module into the runtime.
(define-struct: LinkModule! ([path : ModuleLocator]))
;; Installs a module record into the machine
(define-struct: InstallModuleEntry! ([name : Symbol]
[path : ModuleLocator]
@ -520,6 +523,7 @@
RestoreEnvironment!
RestoreControl!
LinkModule!
InstallModuleEntry!
MarkModuleInvoked!
AliasModuleAsMain!