Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor tweak in compiler

Browse Source
This commit is contained in:
Frédéric Hannes 2014-06-11 19:47:12 +02:00
parent 8d2286385f
commit df155c4640
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSCompiler.pas
View File

@ -3564,12 +3564,12 @@ var
h, l: Longint;
x: TPSProcedure;
begin
h := MakeHash(s);
if (s = 'RESULT') then
begin
Result := True;
exit;
end;
h := MakeHash(s);
if dcTypes in Check then
for l := FTypes.Count - 1 downto 0 do
begin