Bug fix in ZRL decoding

diff --git a/util/int/ChangeLog b/util/int/ChangeLog
index be39ed3..41b5cae 100644 (file)
--- a/util/int/ChangeLog
+++ b/util/int/ChangeLog
@@ -1,3 +1,6 @@
+ 8-Dec-89  Ceriel Jacobs (ceriel) at ceriel
+       Bug fix: one of the many ZRL encodings was decoded wrong.
+
 22-Nov-89  Ceriel Jacobs (ceriel) at ceriel
        Some more speed-up changes, resulting in another 5%.
 

diff --git a/util/int/do_incdec.c b/util/int/do_incdec.c
index 2d31041..db9081b 100644 (file)
--- a/util/int/do_incdec.c
+++ b/util/int/do_incdec.c
@@ -280,7 +280,7 @@ DoZRLn2(arg)
 
        LOG(("@Z6 DoZRLn2(%ld)", l));
        spoilFRA();
-       l = arg_l(arg);
+       l = arg_l(l);
        st_stw(loc_addr(l), 0L);
 }