46: Variable redeclaration

git-svn-id: http://code.remobjects.com/svn/pascalscript@142 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
2009-05-13 15:20:55 +00:00 · 2009-05-13 15:20:55 +00:00 · b52b161ec4
commit b52b161ec4
parent 1f1f21d324
1 changed files with 1 additions and 1 deletions
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@ -4179,7 +4179,7 @@ begin
  v := VarNames;
  while Pos(tbtchar('|'), v) > 0 do
  begin
-    if copy(v, 1, Pos(tbtchar('|'), v) - 1) = s then
+    if FastUppercase(copy(v, 1, Pos(tbtchar('|'), v) - 1)) = s then
    begin
      Result := True;
      exit;