picolisp

commit b6aea6dca37d6a9f69de6669ee5df69a609c6ed0
parent 85ae822e998b6463fef8b99cc3ab4712daa33ff1
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 21 Apr 2011 08:49:41 +0200

Another operand size glitch
Diffstat:
M
src64/db.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src64/db.l b/src64/db.l
@@ -1,4 +1,4 @@
-# 06apr11abu
+# 21apr11abu
 # (c) Software Lab. Alexander Burger
 
 # 6 bytes in little endian format
@@ -742,7 +742,7 @@
          if nz
             shr A 4  # Else normalize
          end
-         ld (Y II) B  # Set block shift
+         ld (Y II) A  # Set block shift
          ld (DbFile) Y  # Set current file
          cc open(&(S II) O_RDWR)  # Try to open
          nul4  # OK?