From 46f6ecaff63d59e1adc5fc9da8d4518ba48ada30 Mon Sep 17 00:00:00 2001
From: Michael Sippel <micha@fragmental.art>
Date: Sat, 10 May 2025 17:53:31 +0200
Subject: [PATCH] morphisms: fix bitshift in lenpfx to msb-cont

---
 morphisms/length_prefix.morphism-base | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/morphisms/length_prefix.morphism-base b/morphisms/length_prefix.morphism-base
index a694931..c93dcbf 100644
--- a/morphisms/length_prefix.morphism-base
+++ b/morphisms/length_prefix.morphism-base
@@ -36,6 +36,6 @@ morph_array_as_lenpfx_to_continuation_bit (T:Type)
 
         dst[i] = src->items[i];
         if( i+1 < src->len )
-            dst[i] |= (1<<(n_bits-1));
+            dst[i] |= ((uint64_t)1<<(n_bits-1));
     }
 ```