Code: Select all
#define incv(Q) Q=Q+1
type UINT8 as UBYTE
DIM KK8 AS UINT8
KK8=251 : ? "!!! BUG (addition+wrap+compare) !!!"
DO
? STR$(KK8) + " " ;
IF ((KK8+1)>128) THEN '' Broken in FBC 1.01.0 !!!
? "Truue" ;
ELSE
? "False" ;
ENDIF
? " " ;
IF (CAST(UINT8,(KK8+1))>128) THEN '' This evaluates OK !!!
? "Truue" ;
ELSE
? "False" ;
ENDIF
? : incv(KK8)
IF (KK8=4) THEN EXIT DO '' Enough !!!
LOOP
http://www.freebasic.net/wiki/wikka.php ... PgLiterals
http://www.freebasic.net/wiki/wikka.php ... blVarTypes