QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-01 09:10:37 +00:00
Code Releases Wiki Activity

Fixes var=function assignment without parameters (recursion).

Browse source 
As reported at https://www.qb64.org/forum/index.php?topic=704.msg5775#msg5775
This commit is contained in:
FellippeHeitor 2021-09-25 00:34:55 -03:00
parent a157eb5f30
commit edb4d40ffa
2 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/qb64.bas
View file

@ -18590,7 +18590,7 @@ FUNCTION findid& (n2$)
hashretry:
z = HashFindCont(unrequired, i)
ELSE
z = HashFindRev(n$, 1, unrequired, i)
z = HashFind(n$, 1, unrequired, i)
END IF
findidinternal = z
IF z = 0 THEN GOTO noid

40
source/subs_functions/subs_functions.bas
View file

@ -1771,16 +1771,6 @@ id.arg = MKL$(STRINGTYPE - ISPOINTER)
id.hr_syntax = "CHAIN moduleName$"
regid
clearid
id.n = "Shell"
id.subfunc = 2
id.callname = "sub_shell"
id.args = 1
id.arg = MKL$(STRINGTYPE - ISPOINTER)
id.specialformat = "[?]"
'id.secondargcantbe = "_HIDE"
id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$"
regid
clearid
id.n = "Shell"
@ -1804,6 +1794,17 @@ id.secondargmustbe = "_DontWait"
id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$"
regid
clearid
id.n = "Shell"
id.subfunc = 2
id.callname = "sub_shell"
id.args = 1
id.arg = MKL$(STRINGTYPE - ISPOINTER)
id.specialformat = "[?]"
'id.secondargcantbe = "_HIDE"
id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$"
regid
clearid
id.n = "Shell"
id.subfunc = 1
@ -2503,15 +2504,6 @@ id.secondargmustbe = "("
id.hr_syntax = "PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]"
regid
clearid
id.n = "Open"
id.subfunc = 2
id.callname = "sub_open_gwbasic"
id.args = 4
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
id.specialformat = "?,[#]?,?[,?]"
id.hr_syntax = "OPEN modeLetter$, [#]fileNumber&, fileName$[, recordLength]"
regid
clearid
id.n = "Open"
id.subfunc = 2
@ -2522,6 +2514,16 @@ id.specialformat = "?[{For Random|For Binary|For Input|For Output|For Append}][{
id.hr_syntax = "OPEN fileName$ [FOR mode] [ACCESS|LOCK|SHARED [{READ|WRITE}] AS [#]fileNumber& [LEN = recordLength]"
regid
clearid
id.n = "Open"
id.subfunc = 2
id.callname = "sub_open_gwbasic"
id.args = 4
id.arg = MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER) + MKL$(STRINGTYPE - ISPOINTER) + MKL$(LONGTYPE - ISPOINTER)
id.specialformat = "?,[#]?,?[,?]"
id.hr_syntax = "OPEN modeLetter$, [#]fileNumber&, fileName$[, recordLength]"
regid
clearid
id.n = "Val"
id.subfunc = 1