mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-05 22:50:23 +00:00
Fixes var=function assignment without parameters (recursion).
As reported at https://www.qb64.org/forum/index.php?topic=704.msg5775#msg5775
This commit is contained in:
parent
a157eb5f30
commit
edb4d40ffa
|
@ -18590,7 +18590,7 @@ FUNCTION findid& (n2$)
|
||||||
hashretry:
|
hashretry:
|
||||||
z = HashFindCont(unrequired, i)
|
z = HashFindCont(unrequired, i)
|
||||||
ELSE
|
ELSE
|
||||||
z = HashFindRev(n$, 1, unrequired, i)
|
z = HashFind(n$, 1, unrequired, i)
|
||||||
END IF
|
END IF
|
||||||
findidinternal = z
|
findidinternal = z
|
||||||
IF z = 0 THEN GOTO noid
|
IF z = 0 THEN GOTO noid
|
||||||
|
|
|
@ -1771,16 +1771,6 @@ id.arg = MKL$(STRINGTYPE - ISPOINTER)
|
||||||
id.hr_syntax = "CHAIN moduleName$"
|
id.hr_syntax = "CHAIN moduleName$"
|
||||||
regid
|
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
|
clearid
|
||||||
id.n = "Shell"
|
id.n = "Shell"
|
||||||
|
@ -1804,6 +1794,17 @@ id.secondargmustbe = "_DontWait"
|
||||||
id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$"
|
id.hr_syntax = "SHELL [_DONTWAIT] [_HIDE] commandToRun$"
|
||||||
regid
|
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
|
clearid
|
||||||
id.n = "Shell"
|
id.n = "Shell"
|
||||||
id.subfunc = 1
|
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]"
|
id.hr_syntax = "PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]"
|
||||||
regid
|
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
|
clearid
|
||||||
id.n = "Open"
|
id.n = "Open"
|
||||||
id.subfunc = 2
|
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]"
|
id.hr_syntax = "OPEN fileName$ [FOR mode] [ACCESS|LOCK|SHARED [{READ|WRITE}] AS [#]fileNumber& [LEN = recordLength]"
|
||||||
regid
|
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
|
clearid
|
||||||
id.n = "Val"
|
id.n = "Val"
|
||||||
id.subfunc = 1
|
id.subfunc = 1
|
||||||
|
|
Loading…
Reference in a new issue