aboutsummaryrefslogtreecommitdiffstats
path: root/src/mds-kbdc
diff options
context:
space:
mode:
Diffstat (limited to 'src/mds-kbdc')
-rw-r--r--src/mds-kbdc/mds-kbdc.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/mds-kbdc/mds-kbdc.c b/src/mds-kbdc/mds-kbdc.c
index 3fd0d82..da1d9a4 100644
--- a/src/mds-kbdc/mds-kbdc.c
+++ b/src/mds-kbdc/mds-kbdc.c
@@ -95,7 +95,11 @@ int main(int argc_, char** argv_)
\set(\6 \8 \add(\rsh(\get(\6 \8) \8) \mul(2 \rsh(\get(\7 \8)))))
end for
- if \and(\1 128) = 128
+ if \equals(\and(\1 128))
+ let \2 : \or(\2 64)
+ end if
+
+ if \and(\1 128) ## a number is true iff it is not zero
let \2 : \or(\2 64)
end if