Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-06 00:29:41 +00:00
Code Issues Projects Releases Wiki Activity

Give an error if a function is defined multiple times.

Browse Source
This commit is contained in:
Stephen Heumann 2022-11-06 20:54:53 -06:00
parent 83147655d2
commit 82b2944eb8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Parser.pas
View File

@ -3861,6 +3861,8 @@ if isFunction then begin
else begin else begin
if not first then if not first then
Error(22); Error(22);
if variable^.state = defined then
Error(42);
ftype := fnType^.ftype; {record the type of the function} ftype := fnType^.ftype; {record the type of the function}
while fType^.kind = definedType do while fType^.kind = definedType do
fType := fType^.dType; fType := fType^.dType;