*** empty log message ***

[pf3gnuchains/sourceware.git] / cgen / cgen-intrinsics.scm

diff --git a/cgen/cgen-intrinsics.scm b/cgen/cgen-intrinsics.scm
index d2710d3..16e0338 100644 (file)
--- a/cgen/cgen-intrinsics.scm
+++ b/cgen/cgen-intrinsics.scm
@@ -4,7 +4,7 @@
 ; functions within gcc. this code has a fair bit of target-specific
 ; code in it. it's not a general-purpose module yet.
 ;
-; Copyright (C) 2000 Red Hat, Inc.
+; Copyright (C) 2000, 2009 Red Hat, Inc.
 ; This file is part of CGEN.
 ;
 ; This is a standalone script, we don't load anything until we parse the
@@ -14,7 +14,6 @@
 
 (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"))
   (primitive-load-path (string-append srcdir "/guile.scm"))
 
   (load (string-append srcdir "/read.scm"))
@@ -27,7 +26,7 @@
   (list
    (list "-K" "isa" "keep isa <isa> in intrinsics" #f
         (lambda (args)
-          (for-each 
+          (for-each
            (lambda (arg) (set! intrinsics-isas (cons (string->symbol arg) intrinsics-isas)))
            (string-cut args #\,))))
    (list "-M" "file" "generate insns.md in <file>" #f