* [Patch] utils.scm clean-up
@ 2001-03-23 16:15 Ben Elliston
2001-03-23 17:08 ` Doug Evans
0 siblings, 1 reply; 3+ messages in thread
From: Ben Elliston @ 2001-03-23 16:15 UTC (permalink / raw)
To: cgen
I've just committed the following minor clean-up patch.
2001-03-24 Ben Elliston <bje@redhat.com>
* utils.scm: Remove comments about the Hobbit compiler.
(copyright-cygnus): Add 2001.
(package-cygnus-simulators): Replace "Cygnus" with "Red Hat".
(package-gnu-simulators): Tidy.
Index: utils.scm
===================================================================
RCS file: /cvs/src/src/cgen/utils.scm,v
retrieving revision 1.4
diff -u -c -r1.4 utils.scm
*** utils.scm 2001/03/15 17:42:29 1.4
--- utils.scm 2001/03/24 00:14:10
***************
*** 34,44 ****
(list proc arg1 arg2 arg3 arg4 arg5 arg6 arg7)
)
! ; ??? value doesn't matter too much here, just check if portable
! ; Name was `UNSPECIFIED' but that conflicts with hobbit.
(define *UNSPECIFIED* (if #f 1))
- ; Define as global to avoid multiple copies in hobbit generated code.
(define assert-fail-msg "assertion failure:")
(defmacro assert (expr)
--- 34,42 ----
(list proc arg1 arg2 arg3 arg4 arg5 arg6 arg7)
)
! ; Value doesn't matter too much here, just ensure it's portable.
(define *UNSPECIFIED* (if #f 1))
(define assert-fail-msg "assertion failure:")
(defmacro assert (expr)
***************
*** 71,78 ****
; Print a message if the verbosity level calls for it.
; This is a macro as a bit of cpu may be spent computing args,
; and we only want to spend it if the result will be printed.
- ; Macro's can't be used in hobbit-compiled code, so instead there use:
- ; (if (verbose? level) (message ...)).
(defmacro logit (level . args)
`(if (>= verbose-level ,level) (message ,@args))
--- 69,74 ----
***************
*** 937,950 ****
; Compute the list of all indices from bits missing in MASK.
; e.g. (missing-bit-indices #xff00 #xffff) -> (0 1 2 3 ... 255)
- ;
- ; Hobbit emits two functions named `missing_bit_indices_fn31' for this.
- ;(define (missing-bit-indices mask full-mask)
- ; (let* ((bitvals (bit-vals (logxor mask full-mask)))
- ; (selectors (bit-patterns (length bitvals))))
- ; (map (lambda (sel) (apply + (map * sel bitvals))) selectors))
- ;)
- ; So it's rewritten to this ...
(define (missing-bit-indices mask full-mask)
(let* ((bitvals (bit-vals (logxor mask full-mask)))
--- 933,938 ----
***************
*** 1178,1184 ****
(cons "\
THIS FILE IS MACHINE GENERATED WITH CGEN.
! Copyright (C) 2000 Red Hat, Inc.
"
"\
"))
--- 1166,1172 ----
(cons "\
THIS FILE IS MACHINE GENERATED WITH CGEN.
! Copyright (C) 2000, 2001 Red Hat, Inc.
"
"\
"))
***************
*** 1194,1204 ****
")
(define package-gnu-simulators "\
! This file is part of the GNU Simulators.
")
(define package-cygnus-simulators "\
! This file is part of the Cygnus Simulators.
")
; Return COPYRIGHT, with FILE-DESC as the first line
--- 1182,1192 ----
")
(define package-gnu-simulators "\
! This file is part of the GNU simulators.
")
(define package-cygnus-simulators "\
! This file is part of the Red Hat simulators.
")
; Return COPYRIGHT, with FILE-DESC as the first line
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Patch] utils.scm clean-up
2001-03-23 16:15 [Patch] utils.scm clean-up Ben Elliston
@ 2001-03-23 17:08 ` Doug Evans
2001-03-23 17:16 ` Ben Elliston
0 siblings, 1 reply; 3+ messages in thread
From: Doug Evans @ 2001-03-23 17:08 UTC (permalink / raw)
To: Ben Elliston; +Cc: cgen
Ben Elliston writes:
> I've just committed the following minor clean-up patch.
>
> 2001-03-24 Ben Elliston <bje@redhat.com>
>
> * utils.scm: Remove comments about the Hobbit compiler.
What happens if someone wants to play with hobbit again?
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [Patch] utils.scm clean-up
2001-03-23 17:08 ` Doug Evans
@ 2001-03-23 17:16 ` Ben Elliston
0 siblings, 0 replies; 3+ messages in thread
From: Ben Elliston @ 2001-03-23 17:16 UTC (permalink / raw)
To: Doug Evans; +Cc: cgen
>>>>> "Doug" == Doug Evans <dje@transmeta.com> writes:
>> * utils.scm: Remove comments about the Hobbit compiler.
Doug> What happens if someone wants to play with hobbit again?
a) I can't think of a good reason why you would want to.
b) There's always old revisions -- if I wanted to play with it again,
I sure wouldn't be using this or last week's tree.
Ben
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2001-03-23 17:16 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-03-23 16:15 [Patch] utils.scm clean-up Ben Elliston
2001-03-23 17:08 ` Doug Evans
2001-03-23 17:16 ` Ben Elliston
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).