From 0ca12c3503f3169408235058e8f88bff4c09cf44 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Sat, 24 Jul 2021 18:01:50 -0300 Subject: [PATCH] Fixes `FUNCTION id2fulltypename$` to recognize _OFFSET types. Now displays actual type name in Warnings box, instead of the C++ variable name. --- source/qb64.bas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/source/qb64.bas b/source/qb64.bas index 2155d1149..7f17613a0 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -12224,7 +12224,7 @@ IF NOT IgnoreWarnings THEN header$ = "unused variable" 's (" + LTRIM$(STR$(totalUnusedVariables)) + ")" FOR i = 1 TO totalVariablesCreated IF usedVariableList(i).used = 0 THEN - addWarning usedVariableList(i).linenumber, usedVariableList(i).includeLevel, usedVariableList(i).includedLine, usedVariableList(i).includedFile, header$, usedVariableList(i).name + SPACE$((maxVarNameLen + 1) - LEN(usedVariableList(i).name)) + " (" + usedVariableList(i).cname + ")" + addWarning usedVariableList(i).linenumber, usedVariableList(i).includeLevel, usedVariableList(i).includedLine, usedVariableList(i).includedFile, header$, usedVariableList(i).name + SPACE$((maxVarNameLen + 1) - LEN(usedVariableList(i).name)) + " (" + usedVariableList(i).varType + ")" END IF NEXT END IF @@ -24032,6 +24032,10 @@ FUNCTION id2fulltypename$ IF bits = 64 THEN a$ = qb64prefix$ + "INTEGER64" IF t AND ISUNSIGNED THEN a$ = qb64prefix$ + "UNSIGNED " + a$ END IF + IF t AND ISOFFSET THEN + a$ = qb64prefix$ + "OFFSET" + IF t AND ISUNSIGNED THEN a$ = qb64prefix$ + "UNSIGNED " + a$ + END IF id2fulltypename$ = a$ END FUNCTION