From e6541c5aad787ea53be04b86e451e6fca09c7a66 Mon Sep 17 00:00:00 2001 From: Ebben Feagan Date: Wed, 15 Jan 2014 19:41:11 -0600 Subject: [PATCH] Fixed warning about overflow, rtl-string line 3663. ASC function return value is uinteger, uinteger - uinteger = uinteger. Previous code would put incorrect value into chardiff. --- src/compiler/rtl-string.bas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/rtl-string.bas b/src/compiler/rtl-string.bas index 9f25d23712..9d4b7ee8a8 100644 --- a/src/compiler/rtl-string.bas +++ b/src/compiler/rtl-string.bas @@ -3660,7 +3660,7 @@ private function hEvalAscCase _ else chara = asc( "a" ) charz = asc( "z" ) - chardiff = asc( "A" ) - asc( "a" ) + chardiff = cint(asc( "A" )) - cint(asc( "a" )) end if if( symbGetType( literal ) = FB_DATATYPE_WCHAR ) then