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

Timestamp:

Oct 19, 2010, 1:11:59 PM (14 years ago)

Author:

george

Message:

• Minor modifications.

File:

• branches/Transpascal/Compiler/USourceCode.pas (modified) (1 diff)

branches/Transpascal/Compiler/USourceCode.pas

@@ -768 +768 @@
     I := 0;
     while (I < UsedModules.Count) and (not Assigned(Result)) do begin
-      Result := TUsedModule(UsedModules[I]).Module.SearchType(Name, False);
+      with TUsedModule(UsedModules[I]) do
+        with Module do
+        Result := SearchType(Name, False);
       Inc(I);
     end;