mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
Miscellaneous fixups related to objcode removal.
* module/scripts/compile.scm: Fix --help message. * module/system/repl/command.scm (disassemble): Fix error message. * module/system/vm/frame.scm: Remove objcode import. * module/system/vm/objcode.scm: Remove some exports related to the objcode type.
This commit is contained in:
parent
741073719e
commit
84680d2382
4 changed files with 5 additions and 7 deletions
|
@ -158,7 +158,7 @@ Compile each Guile source file FILE into a Guile object.
|
||||||
for a list of available warnings
|
for a list of available warnings
|
||||||
|
|
||||||
-f, --from=LANG specify a source language other than `scheme'
|
-f, --from=LANG specify a source language other than `scheme'
|
||||||
-t, --to=LANG specify a target language other than `objcode'
|
-t, --to=LANG specify a target language other than `rtl'
|
||||||
-T, --target=TRIPLET produce bytecode for host TRIPLET
|
-T, --target=TRIPLET produce bytecode for host TRIPLET
|
||||||
|
|
||||||
Note that auto-compilation will be turned off.
|
Note that auto-compilation will be turned off.
|
||||||
|
|
|
@ -497,7 +497,8 @@ Disassemble a compiled procedure."
|
||||||
((bytevector? obj)
|
((bytevector? obj)
|
||||||
(disassemble-image (load-image obj)))
|
(disassemble-image (load-image obj)))
|
||||||
(else
|
(else
|
||||||
(format #t "Argument to ,disassemble not a procedure or objcode: ~a~%"
|
(format #t
|
||||||
|
"Argument to ,disassemble not a procedure or a bytevector: ~a~%"
|
||||||
obj)))))
|
obj)))))
|
||||||
|
|
||||||
(define-meta-command (disassemble-file repl file)
|
(define-meta-command (disassemble-file repl file)
|
||||||
|
|
|
@ -22,7 +22,6 @@
|
||||||
#:use-module (system base pmatch)
|
#:use-module (system base pmatch)
|
||||||
#:use-module (system vm program)
|
#:use-module (system vm program)
|
||||||
#:use-module (system vm instruction)
|
#:use-module (system vm instruction)
|
||||||
#:use-module (system vm objcode)
|
|
||||||
#:export (frame-bindings
|
#:export (frame-bindings
|
||||||
frame-lookup-binding
|
frame-lookup-binding
|
||||||
frame-binding-ref frame-binding-set!
|
frame-binding-ref frame-binding-set!
|
||||||
|
|
|
@ -19,10 +19,8 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(define-module (system vm objcode)
|
(define-module (system vm objcode)
|
||||||
#:export (objcode? objcode-meta
|
#:export (load-thunk-from-file
|
||||||
bytecode->objcode objcode->bytecode
|
load-thunk-from-memory
|
||||||
load-thunk-from-file load-thunk-from-memory
|
|
||||||
word-size byte-order
|
|
||||||
find-mapped-elf-image all-mapped-elf-images))
|
find-mapped-elf-image all-mapped-elf-images))
|
||||||
|
|
||||||
(load-extension (string-append "libguile-" (effective-version))
|
(load-extension (string-append "libguile-" (effective-version))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue