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