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

Remove an unnecessary variable.

Browse Source
This commit is contained in:
Stephen Heumann 2022-02-13 21:36:03 -06:00
parent c96cf4f1dd
commit 8c0d65616c
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Symbol.pas
View File

@ -266,8 +266,7 @@ function StringType(prefix: charStrPrefixEnum): typePtr;
implementation
var
staticNum, {static variable number}
firstStaticNum: packed array[1..6] of char; {staticNum at start of function}
staticNum: packed array[1..6] of char; {static variable number}
{- Imported from expression.pas --------------------------------}
@ -2027,8 +2026,6 @@ repeat
done := i = 1;
end; {if}
until done;
if table = globalTable then {update fistStaticNum}
firstStaticNum := staticNum;
new(tPtr); {create a new symbol table}
ClearTable(tPtr^);
tPtr^.next := table;