mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-25 05:55:13 +00:00
Merge branch 'QB64-Phoenix-Edition:main' into image-load-from-memory-support
This commit is contained in:
commit
e1e6203db9
63160
internal/source/main.txt
63160
internal/source/main.txt
File diff suppressed because it is too large
Load diff
|
@ -17783,7 +17783,9 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG)
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
' Add on any extra optional arguments that were not provided
|
' Add on any extra optional arguments that were not provided
|
||||||
IF curarg <= id2.args THEN
|
'
|
||||||
|
' Overloaded functions do not require the omited arguments to be provided
|
||||||
|
IF curarg <= id2.args AND NOT id2.overloaded THEN
|
||||||
FOR i = curarg TO id2.args
|
FOR i = curarg TO id2.args
|
||||||
IF i = 1 THEN r$ = r$ + "NULL" ELSE r$ = r$ + ",NULL"
|
IF i = 1 THEN r$ = r$ + "NULL" ELSE r$ = r$ + ",NULL"
|
||||||
NEXT
|
NEXT
|
||||||
|
|
8
tests/compile_tests/colors/test.bas
Normal file
8
tests/compile_tests/colors/test.bas
Normal file
|
@ -0,0 +1,8 @@
|
||||||
|
$Console:Only
|
||||||
|
|
||||||
|
Print "Grey, max alpha: "; Hex$(_RGB32(&H7F))
|
||||||
|
Print "Grey, half alpha: "; Hex$(_RGB32(&H7F, &H7F))
|
||||||
|
Print "Grey, max alpha: "; Hex$(_RGB32(&H7F, &H7F, &H7F))
|
||||||
|
Print "Grey, half alpha: "; Hex$(_RGB32(&H7F, &H7F, &H7F, &H7F))
|
||||||
|
|
||||||
|
System
|
4
tests/compile_tests/colors/test.output
Normal file
4
tests/compile_tests/colors/test.output
Normal file
|
@ -0,0 +1,4 @@
|
||||||
|
Grey, max alpha: FF7F7F7F
|
||||||
|
Grey, half alpha: 7F7F7F7F
|
||||||
|
Grey, max alpha: FF7F7F7F
|
||||||
|
Grey, half alpha: 7F7F7F7F
|
Loading…
Reference in a new issue