QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 12:40:36 +00:00
Code Issues Releases Wiki Activity

Fixes $VERSIONINFO. Closes #110.

Browse source 
Also: proper indenting after IgnoreWarnings was added.
This commit is contained in:
FellippeHeitor 2020-01-01 12:27:24 -03:00
parent 9b3753b40c
commit eb7adb7503
2 changed files with 20 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/icon.rc
View file

@ -20,4 +20,9 @@ BEGIN
VALUE "Comments","QB64 is a modern extended BASIC programming language that retains QB4.5/Qbasic compatibility and compiles native binaries for Windows, Linux and macOS.\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x409, 0x04E4
END
END

26
source/qb64.bas
View file

@ -11978,6 +11978,10 @@ IF os$ = "WIN" THEN
PRINT #iconfilehandle, " VALUE " + QuotedFilename$("Web") + "," + QuotedFilename$(viWeb$ + "\0")
PRINT #iconfilehandle, " END"
PRINT #iconfilehandle, " END"
PRINT #iconfilehandle, " BLOCK " + QuotedFilename$("VarFileInfo")
PRINT #iconfilehandle, " BEGIN"
PRINT #iconfilehandle, " VALUE " + QuotedFilename$("Translation") + ", 0x409, 0x04E4"
PRINT #iconfilehandle, " END"
PRINT #iconfilehandle, "END"
CLOSE #iconfilehandle
END IF
@ -25188,20 +25192,20 @@ END SUB
SUB addWarning (lineNumber AS LONG, text$)
IF NOT IgnoreWarnings THEN
IF lineNumber > 0 THEN
totalWarnings = totalWarnings + 1
ELSE
IF lastWarningHeader = text$ THEN
EXIT SUB
IF lineNumber > 0 THEN
totalWarnings = totalWarnings + 1
ELSE
lastWarningHeader = text$
IF lastWarningHeader = text$ THEN
EXIT SUB
ELSE
lastWarningHeader = text$
END IF
END IF
END IF
warningListItems = warningListItems + 1
IF warningListItems > UBOUND(warning$) THEN REDIM _PRESERVE warning$(warningListItems + 999)
warning$(warningListItems) = MKL$(lineNumber) + text$
end if
warningListItems = warningListItems + 1
IF warningListItems > UBOUND(warning$) THEN REDIM _PRESERVE warning$(warningListItems + 999)
warning$(warningListItems) = MKL$(lineNumber) + text$
END IF
END SUB
'$INCLUDE:'utilities\strings.bas'