fix in function NetworkULL2Bin()

FiveTechSoft · Apr 19, 2020 · 484c004 · 484c004
1 parent 2994d06
commit 484c004
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/wsserver.prg b/wsserver.prg
@@ -164,7 +164,7 @@ function NetworkULL2Bin( n )
 
    while nBytesLeft > 0
       nBytesLeft -= 8
-      cBytes += Chr( hb_BitShift( hb_BitShift( n, -nBytesLeft ), 0xFF ) )
+      cBytes += Chr( hb_BitAnd( hb_BitShift( n, -nBytesLeft ), 0xFF ) )
    end
 
 return cBytes