Changeset 73 for branches/Transpascal/Compiler/USourceCode.pas

Timestamp:

Oct 20, 2010, 11:16:02 AM (14 years ago)

Author:

george

Message:

• Fixed: Searching variable types in other modules.

File:

• branches/Transpascal/Compiler/USourceCode.pas (modified) (3 diffs)

branches/Transpascal/Compiler/USourceCode.pas

@@ -297 +297 @@
     function SearchVariable(Name: string; Outside: Boolean): TVariable; virtual;
     function SearchConstant(Name: string; Outside: Boolean): TConstant; virtual;
-    function SearchType(Name: string; Outside: Boolean): TType; virtual;
+    function SearchType(AName: string; Outside: Boolean): TType; virtual;
     function SearchFunction(Name: string; Outside: Boolean): TFunction; virtual;
     constructor Create;
@@ -759 +759 @@
 end;
 
-function TModule.SearchType(Name: string; Outside: Boolean): TType;
-var
-  I: Integer;
-begin
-  Result := Body.Types.Search(Name, Outside);
+function TModule.SearchType(AName: string; Outside: Boolean): TType;
+var
+  I: Integer;
+begin
+  Result := Body.Types.Search(AName, Outside);
 
   if not Assigned(Result) and Outside then begin
@@ -770 +770 @@
       with TUsedModule(UsedModules[I]) do
         with Module do
-        Result := SearchType(Name, False);
+        Result := SearchType(AName, False);
       Inc(I);
     end;