mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 00:00:22 +00:00
Merge pull request #38 from mkilgore/versioninfo-num-string
Allow numerical $VERSIONINFO values to set corresponding string values
This commit is contained in:
commit
8c42b16d29
|
@ -3286,10 +3286,12 @@ DO
|
|||
CASE "FILEVERSION#"
|
||||
GOSUB ValidateVersion
|
||||
viFileVersionNum$ = VersionInfoValue$
|
||||
if viFileVersion$ = "" THEN viFileVersion$ = viFileVersionNum$
|
||||
layout$ = SCase$("$VersionInfo:FILEVERSION#=") + VersionInfoValue$
|
||||
CASE "PRODUCTVERSION#"
|
||||
GOSUB ValidateVersion
|
||||
viProductVersionNum$ = VersionInfoValue$
|
||||
if viProductVersion$ = "" THEN viProductVersion$ = viProductVersionNum$
|
||||
layout$ = SCase$("$VersionInfo:PRODUCTVERSION#=") + VersionInfoValue$
|
||||
CASE "COMPANYNAME"
|
||||
viCompanyName$ = VersionInfoValue$
|
||||
|
|
2
tests/compile_tests/versioninfo2/test.bas
Normal file
2
tests/compile_tests/versioninfo2/test.bas
Normal file
|
@ -0,0 +1,2 @@
|
|||
|
||||
$VERSIONINFO:ProductVersion#=1,2,3,4
|
3
tests/compile_tests/versioninfo3/test.bas
Normal file
3
tests/compile_tests/versioninfo3/test.bas
Normal file
|
@ -0,0 +1,3 @@
|
|||
|
||||
$VERSIONINFO:ProductVersion#=1,2,3,4
|
||||
$VERSIONINFO:ProductVersion=1,2,3,4
|
Loading…
Reference in a new issue