Commit 7a8ad391 authored by Camil Staps's avatar Camil Staps 🍃

Fix segmentation fault for negative characters

parent d205871c
......@@ -487,7 +487,7 @@ small_integer :: !(Expr TInt) -> Expr TWord
small_integer i = "(BC_WORD)&small_integers[("+-+i+-+")<<1]"
static_character :: !(Expr TChar) -> Expr TWord
static_character c = "(BC_WORD)&static_characters[("+-+c+-+")<<1]"
static_character c = "(BC_WORD)&static_characters[(unsigned char)("+-+c+-+")<<1]"
static_boolean :: !(Expr TWord) -> Expr TWord
static_boolean b = "(BC_WORD)&static_booleans[("+-+b+-+") ? 2 : 0]"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment