diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 7ac7e1938..a9c6f595d 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -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