Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 07:30:54 +00:00
Code Issues Projects Releases Wiki Activity

Avoid leaking memory when processing _Generic expressions.

Browse Source
This commit is contained in:
Stephen Heumann 2021-09-07 19:30:57 -05:00
parent 9c04b94093
commit 99f5e2fc87
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Expression.pas
View File

@ -1967,6 +1967,11 @@ var
end; {while} end; {while}
if token.kind <> rparench then if token.kind <> rparench then
Error(12); Error(12);
while typesSeen <> nil do begin {dispose of the list of types seen}
tl := typesSeen^.next;
dispose(typesSeen);
typesSeen := tl;
end; {while}
if not foundMatch then {use default if no match found} if not foundMatch then {use default if no match found}
if foundDefault then if foundDefault then