mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Improves handling of _BIT variables ($Debug). Allows setting values.
This commit is contained in:
parent
27c84393ec
commit
3d5f115eba
|
@ -7103,6 +7103,10 @@ SUB DebugMode
|
||||||
tempVarType$ = "_UNSIGNED _BIT"
|
tempVarType$ = "_UNSIGNED _BIT"
|
||||||
END IF
|
END IF
|
||||||
SELECT CASE tempVarType$
|
SELECT CASE tempVarType$
|
||||||
|
CASE "_BIT", "_UNSIGNED _BIT"
|
||||||
|
value$ = MKL$(VAL(value$))
|
||||||
|
varSize& = LEN(dummy&)
|
||||||
|
result$ = STR$(CVL(value$))
|
||||||
CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE"
|
CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE"
|
||||||
value$ = _MK$(_BYTE, VAL(value$))
|
value$ = _MK$(_BYTE, VAL(value$))
|
||||||
varSize& = LEN(dummy%%)
|
varSize& = LEN(dummy%%)
|
||||||
|
@ -7641,14 +7645,14 @@ SUB DebugMode
|
||||||
IF INSTR(tempVarType$, "BIT *") THEN
|
IF INSTR(tempVarType$, "BIT *") THEN
|
||||||
IF VAL(MID$(tempVarType$, _INSTRREV(tempVarType$, " ") + 1)) > 32 THEN
|
IF VAL(MID$(tempVarType$, _INSTRREV(tempVarType$, " ") + 1)) > 32 THEN
|
||||||
tempVarType$ = "_INTEGER64"
|
tempVarType$ = "_INTEGER64"
|
||||||
IF INSTR(tempVarType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED _INTEGER64"
|
IF INSTR(varType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED _INTEGER64"
|
||||||
ELSE
|
ELSE
|
||||||
tempVarType$ = "LONG"
|
tempVarType$ = "LONG"
|
||||||
IF INSTR(tempVarType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED LONG"
|
IF INSTR(varType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED LONG"
|
||||||
END IF
|
END IF
|
||||||
ELSEIF INSTR("@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@", "@" + tempVarType$ + "@") THEN
|
ELSEIF INSTR("@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@", "@" + tempVarType$ + "@") THEN
|
||||||
tempVarType$ = "LONG"
|
tempVarType$ = "LONG"
|
||||||
IF INSTR(tempVarType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED LONG"
|
IF INSTR(varType$, "UNSIGNED") THEN tempVarType$ = "_UNSIGNED LONG"
|
||||||
END IF
|
END IF
|
||||||
SELECT CASE tempVarType$
|
SELECT CASE tempVarType$
|
||||||
CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE": varSize& = LEN(dummy%%)
|
CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE": varSize& = LEN(dummy%%)
|
||||||
|
|
Loading…
Reference in a new issue