Fixed check in COM

diff --git a/util/int/ChangeLog b/util/int/ChangeLog
index 8415e9a..f89c105 100644 (file)
--- a/util/int/ChangeLog
+++ b/util/int/ChangeLog
@@ -1,3 +1,6 @@
+26-Jan-90  Ceriel Jacobs (ceriel) at ceriel
+       Fixed check in COM instruction.
+
 26-Jan-90  Ceriel Jacobs (ceriel) at ceriel
        Fixed so that two consecutive SIG's have no effect.
 

diff --git a/util/int/do_logic.c b/util/int/do_logic.c
index 13b3900..f9e4071 100644 (file)
--- a/util/int/do_logic.c
+++ b/util/int/do_logic.c
@@ -201,7 +201,7 @@ DoCOMz()
        spoilFRA();
        l = arg_w(l);
        for (p = SP; p < (SP + l); p++) {
-               check_def(p, l);
+               check_def(p, 0);
                stack_loc(p) = ~stack_loc(p);
        }
 }