Updated Russian translation.

[pf3gnuchains/pf3gnuchains3x.git] / cgen / cgen-opc.scm

diff --git a/cgen/cgen-opc.scm b/cgen/cgen-opc.scm
index 81cfd0f..276fdb8 100644 (file)
--- a/cgen/cgen-opc.scm
+++ b/cgen/cgen-opc.scm
@@ -20,18 +20,10 @@
   (load (string-append srcdir "/opc-opinst.scm"))
 )
 
-; Records the -OPC arg which specifies the path to the .opc file.
-(define -opc-file-path #f)
-(define (opc-file-path)
-  (if -opc-file-path
-      -opc-file-path
-      (error ".opc file unspecified, missing -OPC argument"))
-)
-
 (define opc-arguments
   (list
    (list "-OPC" "file" "specify path to .opc file"
-        (lambda (arg) (set! -opc-file-path arg))
+        (lambda (arg) (set-opc-file-path! arg))
         #f)
    (list "-H" "file" "generate $arch-desc.h in <file>"
         #f