From: akr <akr>
Date: Tue, 25 Aug 1998 17:54:13 +0000 (+0000)
Subject: * ew-bq.el (ew-ccl-decode-b): Eliminate `>8=' before `write'.
X-Git-Tag: doodle-1_9_2~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=72572076a671d8b11bd6631432aef4c040ceceae;p=elisp%2Fflim.git

* ew-bq.el (ew-ccl-decode-b): Eliminate `>8=' before `write'.
---

diff --git a/ChangeLog b/ChangeLog
index c28e7a9..6fc0f56 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-08-25  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* ew-bq.el (ew-ccl-decode-b): Eliminate `>8=' before `write'.
+
+1998-08-25  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* ew-bq.el (ew-ccl-decode-b-0-table): Use `if' instead of `cond'
 	(ew-ccl-decode-b-1-table): Ditto.
 	(ew-ccl-decode-b-2-table): Ditto.
diff --git a/ew-bq.el b/ew-bq.el
index 467e9d2..3bd4a79 100644
--- a/ew-bq.el
+++ b/ew-bq.el
@@ -375,30 +375,25 @@
 	    (write r7)
 	    (r4 >8= 0)
 	    (write r7)
-	    (r4 >8= 0)
-	    (write-repeat r7))
+	    (write-repeat r4))
 	   ;; error: BB=B 
-	   ((r4 >8= 0)
-	    (write r7)
+	   ((write r4)
 	    (end))
 	   ;; BBB=
 	   ((r5 = r2 ,ew-ccl-decode-b-2-table)
 	    (r4 |= r5)
 	    (r4 >8= 0)
 	    (write r7)
-	    (r4 >8= 0)
-	    (write r7)
+	    (write r4)
 	    (end))
 	   ;; BB==
-	   ((r4 >8= 0)
-	    (write r7)
+	   ((write r4)
 	    (end))))
        ((r4 >8= 0)
 	(write r7)
 	(r4 >8= 0)
 	(write r7)
-	(r4 >8= 0)
-	(write-repeat r7))))))
+	(write-repeat r4))))))
 
 ;; ew-ccl-encode-b works only 20.3 or later because CCL_EOF_BLOCK
 ;; is not executed on 20.2 (or former?).
@@ -1006,5 +1001,16 @@
   (setq b (current-time))
   (elp-elapsed-time a b))
 
+(let ((i 100000) (status (make-vector 9 nil)) a b)
+  (setq a (current-time))
+  (while (< 0 i)
+    (setq i (1- i))
+    (ccl-execute-on-string
+     ew-ccl-decode-b ; or ew-ccl-decode-b-2 or -3
+     status
+     "AB8gISIjJCUmJygpKissLS4vMDk6Ozw9Pj9AQVpbXF1eX2Bhent8fX5/gP8="))
+  (setq b (current-time))
+  (elp-elapsed-time a b))
+
 
 )