QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 10:00:23 +00:00
Code 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" 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
END END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x409, 0x04E4
END
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, " VALUE " + QuotedFilename$("Web") + "," + QuotedFilename$(viWeb$ + "\0")
PRINT #iconfilehandle, " END" PRINT #iconfilehandle, " END"
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" PRINT #iconfilehandle, "END"
CLOSE #iconfilehandle CLOSE #iconfilehandle
END IF END IF
@ -25188,20 +25192,20 @@ END SUB
SUB addWarning (lineNumber AS LONG, text$) SUB addWarning (lineNumber AS LONG, text$)
IF NOT IgnoreWarnings THEN IF NOT IgnoreWarnings THEN
IF lineNumber > 0 THEN IF lineNumber > 0 THEN
totalWarnings = totalWarnings + 1 totalWarnings = totalWarnings + 1
ELSE
IF lastWarningHeader = text$ THEN
EXIT SUB
ELSE ELSE
lastWarningHeader = text$ IF lastWarningHeader = text$ THEN
EXIT SUB
ELSE
lastWarningHeader = text$
END IF
END IF END IF
END IF
warningListItems = warningListItems + 1 warningListItems = warningListItems + 1
IF warningListItems > UBOUND(warning$) THEN REDIM _PRESERVE warning$(warningListItems + 999) IF warningListItems > UBOUND(warning$) THEN REDIM _PRESERVE warning$(warningListItems + 999)
warning$(warningListItems) = MKL$(lineNumber) + text$ warning$(warningListItems) = MKL$(lineNumber) + text$
end if END IF
END SUB END SUB
'$INCLUDE:'utilities\strings.bas' '$INCLUDE:'utilities\strings.bas'