Hand patch: update to github/binutils.

[pf3gnuchains/pf3gnuchains4x.git] / cgen / read.scm

diff --git a/cgen/read.scm b/cgen/read.scm
index 0a6217c..0695fd4 100644 (file)
--- a/cgen/read.scm
+++ b/cgen/read.scm
@@ -1,5 +1,5 @@
 ; Top level file for reading and recording .cpu file contents.
-; Copyright (C) 2000, 2001, 2006, 2009, 2010 Red Hat, Inc.
+; Copyright (C) 2000, 2001, 2006, 2009 Red Hat, Inc.
 ; This file is part of CGEN.
 ; See file COPYING.CGEN for details.
 
@@ -982,17 +982,12 @@ Define a preprocessor-style macro.
   #f
 )
 
-;; .cpu file include mechanism
-;; If FILE is not an absolute path, prepend ARCH-PATH.
+; .cpu file include mechanism
 
 (define (/cmd-include file)
-  (let ((full-path (if (eq? (string-ref file 0) #\/)
-                      file
-                      (string-append arch-path "/" file))))
-    (logit 1 "Including file " full-path " ...\n")
-    (reader-read-file! full-path)
-    (logit 2 "Resuming previous file ...\n"))
-  *UNSPECIFIED*
+  (logit 1 "Including file " (string-append arch-path "/" file) " ...\n")
+  (reader-read-file! (string-append arch-path "/" file))
+  (logit 2 "Resuming previous file ...\n")
 )
 
 ; Version of `if' invokable at the top level of a description file.