Merge pull request #83 from FHannes/master

Some minor changes
This commit is contained in:
Carlo Kok 2014-06-11 20:39:55 +02:00
commit 5d00e6cfb9
2 changed files with 3 additions and 2 deletions

3
.gitignore vendored
View File

@ -1 +1,2 @@
*.dcu
*.dcu
__history

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