mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Allows $Debug to work ok with $NoPrefix data types.
This commit is contained in:
parent
c57eab997e
commit
e737219d75
|
@ -7071,7 +7071,7 @@ SUB DebugMode
|
||||||
varType$ = usedVariableList(tempIndex&).varType
|
varType$ = usedVariableList(tempIndex&).varType
|
||||||
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
||||||
SELECT CASE varType$
|
SELECT CASE varType$
|
||||||
CASE "_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%%)
|
||||||
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
||||||
|
@ -7079,7 +7079,7 @@ SUB DebugMode
|
||||||
ELSE
|
ELSE
|
||||||
result$ = STR$(_CV(_BYTE, value$))
|
result$ = STR$(_CV(_BYTE, value$))
|
||||||
END IF
|
END IF
|
||||||
CASE "INTEGER", "_UNSIGNED INTEGER"
|
CASE "INTEGER", "_UNSIGNED INTEGER", "UNSIGNED INTEGER"
|
||||||
value$ = MKI$(VAL(value$))
|
value$ = MKI$(VAL(value$))
|
||||||
varSize& = LEN(dummy%)
|
varSize& = LEN(dummy%)
|
||||||
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
||||||
|
@ -7087,7 +7087,7 @@ SUB DebugMode
|
||||||
ELSE
|
ELSE
|
||||||
result$ = STR$(_CV(INTEGER, value$))
|
result$ = STR$(_CV(INTEGER, value$))
|
||||||
END IF
|
END IF
|
||||||
CASE "LONG", "_UNSIGNED LONG"
|
CASE "LONG", "_UNSIGNED LONG", "UNSIGNED LONG"
|
||||||
value$ = MKL$(VAL(value$))
|
value$ = MKL$(VAL(value$))
|
||||||
varSize& = LEN(dummy&)
|
varSize& = LEN(dummy&)
|
||||||
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
||||||
|
@ -7095,7 +7095,7 @@ SUB DebugMode
|
||||||
ELSE
|
ELSE
|
||||||
result$ = STR$(_CV(LONG, value$))
|
result$ = STR$(_CV(LONG, value$))
|
||||||
END IF
|
END IF
|
||||||
CASE "_INTEGER64", "_UNSIGNED _INTEGER64"
|
CASE "_INTEGER64", "INTEGER64", "_UNSIGNED _INTEGER64", "UNSIGNED INTEGER64"
|
||||||
value$ = _MK$(_INTEGER64, VAL(value$))
|
value$ = _MK$(_INTEGER64, VAL(value$))
|
||||||
varSize& = LEN(dummy&&)
|
varSize& = LEN(dummy&&)
|
||||||
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
||||||
|
@ -7111,11 +7111,11 @@ SUB DebugMode
|
||||||
value$ = MKD$(VAL(value$))
|
value$ = MKD$(VAL(value$))
|
||||||
varSize& = LEN(dummy#)
|
varSize& = LEN(dummy#)
|
||||||
result$ = STR$(CVD(value$))
|
result$ = STR$(CVD(value$))
|
||||||
CASE "_FLOAT"
|
CASE "_FLOAT", "FLOAT"
|
||||||
value$ = _MK$(_FLOAT, VAL(value$))
|
value$ = _MK$(_FLOAT, VAL(value$))
|
||||||
varSize& = LEN(dummy##)
|
varSize& = LEN(dummy##)
|
||||||
result$ = STR$(_CV(_FLOAT, value$))
|
result$ = STR$(_CV(_FLOAT, value$))
|
||||||
CASE "_OFFSET", "_UNSIGNED _OFFSET"
|
CASE "_OFFSET", "_UNSIGNED _OFFSET", "OFFSET", "UNSIGNED OFFSET"
|
||||||
value$ = _MK$(_OFFSET, VAL(value$))
|
value$ = _MK$(_OFFSET, VAL(value$))
|
||||||
varSize& = LEN(dummy%&)
|
varSize& = LEN(dummy%&)
|
||||||
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
IF INSTR(varType$, "UNSIGNED") > 0 THEN
|
||||||
|
@ -7388,14 +7388,14 @@ SUB DebugMode
|
||||||
varType$ = usedVariableList(tempIndex&).varType
|
varType$ = usedVariableList(tempIndex&).varType
|
||||||
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
||||||
SELECT CASE varType$
|
SELECT CASE varType$
|
||||||
CASE "_BYTE", "_UNSIGNED _BYTE": varSize& = LEN(dummy%%)
|
CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE": varSize& = LEN(dummy%%)
|
||||||
CASE "INTEGER", "_UNSIGNED INTEGER": varSize& = LEN(dummy%)
|
CASE "INTEGER", "_UNSIGNED INTEGER", "UNSIGNED INTEGER": varSize& = LEN(dummy%)
|
||||||
CASE "LONG", "_UNSIGNED LONG": varSize& = LEN(dummy&)
|
CASE "LONG", "_UNSIGNED LONG", "UNSIGNED LONG": varSize& = LEN(dummy&)
|
||||||
CASE "_INTEGER64", "_UNSIGNED _INTEGER64": varSize& = LEN(dummy&&)
|
CASE "_INTEGER64", "_UNSIGNED _INTEGER64", "INTEGER64", "UNSIGNED INTEGER64": varSize& = LEN(dummy&&)
|
||||||
CASE "SINGLE": varSize& = LEN(dummy!)
|
CASE "SINGLE": varSize& = LEN(dummy!)
|
||||||
CASE "DOUBLE": varSize& = LEN(dummy#)
|
CASE "DOUBLE": varSize& = LEN(dummy#)
|
||||||
CASE "_FLOAT": varSize& = LEN(dummy##)
|
CASE "_FLOAT", "FLOAT": varSize& = LEN(dummy##)
|
||||||
CASE "_OFFSET", "_UNSIGNED _OFFSET": varSize& = LEN(dummy%&)
|
CASE "_OFFSET", "_UNSIGNED _OFFSET", "OFFSET", "UNSIGNED OFFSET": varSize& = LEN(dummy%&)
|
||||||
CASE "STRING": varSize& = LEN(dummy%&) + LEN(dummy&)
|
CASE "STRING": varSize& = LEN(dummy%&) + LEN(dummy&)
|
||||||
END SELECT
|
END SELECT
|
||||||
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + _MK$(_OFFSET, address%&)
|
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + _MK$(_OFFSET, address%&)
|
||||||
|
@ -7407,19 +7407,19 @@ SUB DebugMode
|
||||||
varType$ = usedVariableList(tempIndex&).varType
|
varType$ = usedVariableList(tempIndex&).varType
|
||||||
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
||||||
SELECT CASE varType$
|
SELECT CASE varType$
|
||||||
CASE "_BYTE": recvData$ = STR$(_CV(_BYTE, recvData$))
|
CASE "_BYTE", "BYTE": recvData$ = STR$(_CV(_BYTE, recvData$))
|
||||||
CASE "_UNSIGNED _BYTE": recvData$ = STR$(_CV(_UNSIGNED _BYTE, recvData$))
|
CASE "_UNSIGNED _BYTE", "UNSIGNED BYTE": recvData$ = STR$(_CV(_UNSIGNED _BYTE, recvData$))
|
||||||
CASE "INTEGER": recvData$ = STR$(_CV(INTEGER, recvData$))
|
CASE "INTEGER": recvData$ = STR$(_CV(INTEGER, recvData$))
|
||||||
CASE "_UNSIGNED INTEGER": recvData$ = STR$(_CV(_UNSIGNED INTEGER, recvData$))
|
CASE "_UNSIGNED INTEGER", "UNSIGNED INTEGER": recvData$ = STR$(_CV(_UNSIGNED INTEGER, recvData$))
|
||||||
CASE "LONG": recvData$ = STR$(_CV(LONG, recvData$))
|
CASE "LONG": recvData$ = STR$(_CV(LONG, recvData$))
|
||||||
CASE "_UNSIGNED LONG": recvData$ = STR$(_CV(_UNSIGNED LONG, recvData$))
|
CASE "_UNSIGNED LONG", "UNSIGNED LONG": recvData$ = STR$(_CV(_UNSIGNED LONG, recvData$))
|
||||||
CASE "_INTEGER64": recvData$ = STR$(_CV(_INTEGER64, recvData$))
|
CASE "_INTEGER64", "INTEGER64": recvData$ = STR$(_CV(_INTEGER64, recvData$))
|
||||||
CASE "_UNSIGNED _INTEGER64": recvData$ = STR$(_CV(_UNSIGNED _INTEGER64, recvData$))
|
CASE "_UNSIGNED _INTEGER64", "UNSIGNED INTEGER64": recvData$ = STR$(_CV(_UNSIGNED _INTEGER64, recvData$))
|
||||||
CASE "SINGLE": recvData$ = STR$(_CV(SINGLE, recvData$))
|
CASE "SINGLE": recvData$ = STR$(_CV(SINGLE, recvData$))
|
||||||
CASE "DOUBLE": recvData$ = STR$(_CV(DOUBLE, recvData$))
|
CASE "DOUBLE": recvData$ = STR$(_CV(DOUBLE, recvData$))
|
||||||
CASE "_FLOAT": recvData$ = STR$(_CV(_FLOAT, recvData$))
|
CASE "_FLOAT", "FLOAT": recvData$ = STR$(_CV(_FLOAT, recvData$))
|
||||||
CASE "_OFFSET": recvData$ = STR$(_CV(_OFFSET, recvData$))
|
CASE "_OFFSET", "OFFSET": recvData$ = STR$(_CV(_OFFSET, recvData$))
|
||||||
CASE "_UNSIGNED _OFFSET": recvData$ = STR$(_CV(_UNSIGNED _OFFSET, recvData$))
|
CASE "_UNSIGNED _OFFSET", "UNSIGNED OFFSET": recvData$ = STR$(_CV(_UNSIGNED _OFFSET, recvData$))
|
||||||
CASE "STRING"
|
CASE "STRING"
|
||||||
IF sequence% = 1 THEN
|
IF sequence% = 1 THEN
|
||||||
IF LEN(dummy%&) = 8 THEN
|
IF LEN(dummy%&) = 8 THEN
|
||||||
|
|
Loading…
Reference in a new issue