[Patch] utils.scm clean-up

[Ben Elliston <bje at redhat dot com>]

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