2001-07-06 Ben Elliston <bje@redhat.com>

	* opcodes.scm (read-cpu.opc): Read .opc files from subdir/cpu.

diff --git a/ChangeLog b/ChangeLog
index f22974bdd6803d0f4dd01d91cdcd55af70c0d732..a676b1574e87a421960c02acecf6acf12a446114 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-06  Ben Elliston  <bje@redhat.com>
+
+       * opcodes.scm (read-cpu.opc): Read .opc files from subdir/cpu.
+
 2001-07-05  Ben Elliston  <bje@redhat.com>
 
        * README: Update.

diff --git a/opcodes.scm b/opcodes.scm
index f5ed26f801d30aebed73f8b4b8b5b360d6e852c9..a61606abe90714a87ec7cc2bf06943cd1dd4e171 100644 (file)
--- a/opcodes.scm
+++ b/opcodes.scm
@@ -708,7 +708,7 @@
 ; it up into manageable chunks.
 
 (define (read-cpu.opc srcdir cpu delim)
-  (let ((file (string-append srcdir "/" (current-arch-name) ".opc"))
+  (let ((file (string-append srcdir "/cpu/" (current-arch-name) ".opc"))
        (start-delim (string-append "/* -- " delim))
        (end-delim "/* -- "))
     (if (file-exists? file)