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

modulerecords keep the path now.

Browse Source
This commit is contained in:
Danny Yoo 2011-05-13 14:58:49 -04:00
parent 2bb4666645
commit 9988201d06
4 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
il-structs.rkt
View File

@ -395,7 +395,8 @@
;; Installs a module record into the machine
(define-struct: InstallModuleEntry! ([name : ModuleName]
(define-struct: InstallModuleEntry! ([name : Symbol]
[path : ModuleName]
[entry-point : Symbol])
#:transparent)

3
js-assembler/assemble-perform-statement.rkt
View File

@ -127,5 +127,6 @@
[(InstallModuleEntry!? op)
(format "MACHINE.modules[~s]=new RUNTIME.ModuleRecord(~s, ~a);"
(symbol->string (ModuleName-name (InstallModuleEntry!-name op)))
(symbol->string (ModuleName-name (InstallModuleEntry!-path op)))
(symbol->string (InstallModuleEntry!-name op))
(assemble-label (make-Label (InstallModuleEntry!-entry-point op))))]))

3
simulator/simulator-structs.rkt
View File

@ -62,7 +62,8 @@
#:mutable)
(define-struct: module-record ([name : ModuleName]
(define-struct: module-record ([name : Symbol]
[self-path : Symbol]
[label : Symbol]
[invoked? : Boolean]
[exports : (HashTable Symbol PrimitiveValue)])

4
simulator/simulator.rkt
View File

@ -412,8 +412,10 @@
[(InstallModuleEntry!? op)
(hash-set! (machine-modules m)
(ModuleName-name (InstallModuleEntry!-name op))
(ModuleName-name (InstallModuleEntry!-path op))
(make-module-record (InstallModuleEntry!-name op)
(ModuleName-name
(InstallModuleEntry!-path op))
(InstallModuleEntry!-entry-point op)
#f
(make-hash)))