diff options
Diffstat (limited to 'module/scripts')
-rw-r--r-- | module/scripts/compile.scm | 6 | ||||
-rw-r--r-- | module/scripts/disassemble.scm | 12 |
2 files changed, 7 insertions, 11 deletions
diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm index 20db94463..ab2c456d4 100644 --- a/module/scripts/compile.scm +++ b/module/scripts/compile.scm @@ -1,6 +1,6 @@ ;;; Compile --- Command-line Guile Scheme compiler -*- coding: iso-8859-1 -*- -;; Copyright 2005,2008,2009,2010,2011 Free Software Foundation, Inc. +;; Copyright 2005,2008,2009,2010,2011,2013 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License @@ -139,7 +139,7 @@ There is NO WARRANTY, to the extent permitted by law.~%")) (cons #:O o) o))) (from (or (assoc-ref options 'from) 'scheme)) - (to (or (assoc-ref options 'to) 'objcode)) + (to (or (assoc-ref options 'to) 'bytecode)) (target (or (assoc-ref options 'target) %host-type)) (input-files (assoc-ref options 'input-files)) (output-file (assoc-ref options 'output-file)) @@ -158,7 +158,7 @@ Compile each Guile source file FILE into a Guile object. for a list of available warnings -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 `bytecode' -T, --target=TRIPLET produce bytecode for host TRIPLET Note that auto-compilation will be turned off. diff --git a/module/scripts/disassemble.scm b/module/scripts/disassemble.scm index 7dab2dde9..426f87c59 100644 --- a/module/scripts/disassemble.scm +++ b/module/scripts/disassemble.scm @@ -1,6 +1,6 @@ ;;; Disassemble --- Disassemble .go files into something human-readable -;; Copyright 2005, 2008, 2009, 2011 Free Software Foundation, Inc. +;; Copyright 2005, 2008, 2009, 2011, 2012, 2013 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License @@ -22,21 +22,17 @@ ;;; Commentary: -;; Usage: disassemble [ARGS] +;; Usage: disassemble FILE... ;;; Code: (define-module (scripts disassemble) - #:use-module (system vm objcode) - #:use-module ((language assembly disassemble) - #:renamer (symbol-prefix-proc 'asm:)) + #:use-module (system vm disassembler) #:export (disassemble)) (define %summary "Disassemble a compiled .go file.") (define (disassemble . files) - (for-each (lambda (file) - (asm:disassemble (load-objcode file))) - files)) + (for-each disassemble-file files)) (define main disassemble) |