Changeset 59 for branches/Transpascal/USourceCode.pas

Timestamp:

Oct 14, 2010, 8:41:34 AM (14 years ago)

Author:

george

Message:

• Added: On parsing uses section load and parse unit files.

File:

• branches/Transpascal/USourceCode.pas (modified) (4 diffs)

branches/Transpascal/USourceCode.pas

@@ -33 +33 @@
   TConstant = class;
   TModule = class;
+  TProgram = class;
 
   TDevice = class
@@ -268 +269 @@
 
   TUsedModuleList = class(TObjectList)
+    ParentModule: TModule;
   end;
 
   TModule = class
   public
+    ParentProgram: TProgram;
     Name: string;
     constructor Create;
@@ -731 +734 @@
   inherited;
   UsedModules := TUsedModuleList.Create;
+  UsedModules.ParentModule := Self;
   Body := TCommonBlock.Create;
 end;
@@ -746 +750 @@
 begin
   ImplementationSection := TUnitImplementation.Create;
+  ImplementationSection.UsedModules.ParentModule := Self;
   InterfaceSection := TUnitInterface.Create;
+  InterfaceSection.UsedModules.ParentModule := Self;
 end;