Changeset 45 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Aug 9, 2010, 10:34:09 AM (14 years ago)

Author:

george

Message:

Fixed comparasion of name of identificators as types, variables, consts, methods using lowercase.

File:

• branches/DelphiToC/UPascalSource.pas (modified) (5 diffs)

branches/DelphiToC/UPascalSource.pas

@@ -336 +336 @@
 begin
   I := 0;
-  while (I < Count) and (LowerCase(TConstant(Items[I]).Name) <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TConstant(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
   if I < Count then Result := TConstant(Items[I]) else begin
     if Assigned(Parent.Parent) then Result := Parent.Parent.Constants.Search(Name)
@@ -417 +417 @@
 begin
   I := 0;
-  while (I < Count) and (LowerCase(TType(Items[I]).Name) <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TType(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
   if I < Count then Result := TType(Items[I]) else begin
     if Assigned(Parent.Parent) then Result := Parent.Parent.Types.Search(Name)
@@ -438 +438 @@
 begin
   I := 0;
-  while (I < Count) and (LowerCase(TVariable(Items[I]).Name) <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TVariable(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
   if I < Count then Result := TVariable(Items[I]) else begin
     if Assigned(Parent.Parent) then
@@ -463 +463 @@
 begin
   I := 0;
-  while (I < Count) and (LowerCase(TFunction(Items[I]).Name) <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TFunction(Items[I]).Name) <> LowerCase(Name)) do Inc(I);
   if I < Count then Result := TFunction(Items[I]) else begin
     if Assigned(Parent.Parent) then Result := Parent.Parent.Methods.Search(Name)
@@ -533 +533 @@
 begin
   I := 0;
-  while (I < Count) and (TParameter(Items[I]).Name <> Name) do Inc(I);
+  while (I < Count) and (TParameter(Items[I]).Name <> LowerCase(Name)) do Inc(I);
   if I < Count then Result := TParameter(Items[I])
     else Result := nil;