From 8d2286385f29fb6f515575db4f109321d62f30b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Hannes?= <freddy1990@gmail.com>
Date: Wed, 11 Jun 2014 19:47:01 +0200
Subject: [PATCH 1/2] Added __history to gitignore

---
 .gitignore | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/.gitignore b/.gitignore
index 4523933..9b20757 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
-*.dcu
\ No newline at end of file
+*.dcu
+__history
\ No newline at end of file

From df155c46405fae63b3d65a6d637b06a525bbeef9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Hannes?= <freddy1990@gmail.com>
Date: Wed, 11 Jun 2014 19:47:12 +0200
Subject: [PATCH 2/2] Minor tweak in compiler

---
 Source/uPSCompiler.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/uPSCompiler.pas b/Source/uPSCompiler.pas
index c3854de..0d81ef1 100644
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@@ -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