From: Jim Blandy <jimb@redhat.com>
To: cgen@sources.redhat.com
Subject: committed: have opcodes load guile.scm explicitly
Date: Tue, 08 Feb 2005 04:57:00 -0000 [thread overview]
Message-ID: <vt2y8dzir88.fsf@zenia.home> (raw)
I'm thinking about making a single run-cgen.sh script that can
abstract out the process of finding a suitable interpreter. But this
change leaves the existing structure unchanged for now.
cgen/ChangeLog:
2005-02-07 Jim Blandy <jimb@redhat.com>
* cgen-opc.scm: Don't load fixup.scm here. (See corresponding
changes in the opcodes directory.)
opcodes/ChangeLog:
2005-02-07 Jim Blandy <jimb@redhat.com>
* Makefile.am (CGEN): Load guile.scm before calling the main
application script.
* Makefile.in: Regenerated.
* cgen.sh: Be prepared for the 'cgen' argument to contain spaces.
Simply pass the cgen-opc.scm path to ${cgen} as its first
argument; ${cgen} itself now contains the '-s', or whatever is
appropriate for the Scheme being used.
Index: cgen/cgen-opc.scm
===================================================================
RCS file: /cvs/src/src/cgen/cgen-opc.scm,v
retrieving revision 1.2
diff -c -p -r1.2 cgen-opc.scm
*** cgen/cgen-opc.scm 8 Sep 2003 17:17:22 -0000 1.2
--- cgen/cgen-opc.scm 8 Feb 2005 04:47:54 -0000
***************
*** 10,18 ****
; Load the various support routines.
(define (load-files srcdir)
- ; Fix up Scheme to be what we use (guile is always in flux).
- (primitive-load-path (string-append srcdir "/fixup.scm"))
-
(load (string-append srcdir "/read.scm"))
(load (string-append srcdir "/desc.scm"))
(load (string-append srcdir "/desc-cpu.scm"))
--- 10,15 ----
Index: opcodes/Makefile.am
===================================================================
RCS file: /cvs/src/src/opcodes/Makefile.am,v
retrieving revision 1.79
diff -c -p -r1.79 Makefile.am
*** opcodes/Makefile.am 27 Nov 2004 11:09:20 -0000 1.79
--- opcodes/Makefile.am 8 Feb 2005 04:47:55 -0000
*************** CLEANFILES = \
*** 357,363 ****
CGENDIR = @cgendir@
CPUDIR = $(CGENDIR)/cpu
! CGEN = `if test -f ../guile/libguile/guile ; then echo ../guile/libguile/guile; else echo guile ; fi`
CGENFLAGS = -v
CGENDEPS = \
--- 357,363 ----
CGENDIR = @cgendir@
CPUDIR = $(CGENDIR)/cpu
! CGEN = "`if test -f ../guile/libguile/guile ; then echo ../guile/libguile/guile; else echo guile ; fi` -l ${cgendir}/guile.scm -s"
CGENFLAGS = -v
CGENDEPS = \
Index: opcodes/Makefile.in
===================================================================
RCS file: /cvs/src/src/opcodes/Makefile.in,v
retrieving revision 1.89
diff -c -p -r1.89 Makefile.in
*** opcodes/Makefile.in 27 Nov 2004 11:09:20 -0000 1.89
--- opcodes/Makefile.in 8 Feb 2005 04:47:55 -0000
*************** CLEANFILES = \
*** 532,538 ****
CGENDIR = @cgendir@
CPUDIR = $(CGENDIR)/cpu
! CGEN = `if test -f ../guile/libguile/guile ; then echo ../guile/libguile/guile; else echo guile ; fi`
CGENFLAGS = -v
CGENDEPS = \
$(CGENDIR)/desc.scm $(CGENDIR)/desc-cpu.scm \
--- 532,538 ----
CGENDIR = @cgendir@
CPUDIR = $(CGENDIR)/cpu
! CGEN = "`if test -f ../guile/libguile/guile ; then echo ../guile/libguile/guile; else echo guile ; fi` -l ${cgendir}/guile.scm -s"
CGENFLAGS = -v
CGENDEPS = \
$(CGENDIR)/desc.scm $(CGENDIR)/desc-cpu.scm \
Index: opcodes/cgen.sh
===================================================================
RCS file: /cvs/src/src/opcodes/cgen.sh,v
retrieving revision 1.3
diff -c -p -r1.3 cgen.sh
*** opcodes/cgen.sh 8 Sep 2003 17:24:05 -0000 1.3
--- opcodes/cgen.sh 8 Feb 2005 04:47:55 -0000
*************** set -e
*** 47,53 ****
action=$1
srcdir=$2
! cgen=$3
cgendir=$4
cgenflags=$5
arch=$6
--- 47,53 ----
action=$1
srcdir=$2
! cgen="$3"
cgendir=$4
cgenflags=$5
arch=$6
*************** opcodes)
*** 93,99 ****
rm -f tmp-dis.c tmp-dis.in1
# Run CGEN.
! ${cgen} -s ${cgendir}/cgen-opc.scm \
-s ${cgendir} \
${cgenflags} \
-f "${options}" \
--- 93,99 ----
rm -f tmp-dis.c tmp-dis.in1
# Run CGEN.
! ${cgen} ${cgendir}/cgen-opc.scm \
-s ${cgendir} \
${cgenflags} \
-f "${options}" \
reply other threads:[~2005-02-08 4:57 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=vt2y8dzir88.fsf@zenia.home \
--to=jimb@redhat.com \
--cc=cgen@sources.redhat.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).