Changeset 7 for trunk/Compiler/USourceCode.pas

Timestamp:

Nov 5, 2010, 1:50:02 PM (14 years ago)

Author:

george

Message:

• Added: Support for unit initialization and finalization sections.

File:

• trunk/Compiler/USourceCode.pas (modified) (2 diffs)

trunk/Compiler/USourceCode.pas

@@ -418 +418 @@
 
   TModuleUnit = class(TModule)
+    InititializeSection: TCommonBlock;
+    FinalalizeSection: TCommonBlock;
     constructor Create;
     destructor Destroy; override;
@@ -1030 +1032 @@
 begin
   inherited;
+  InititializeSection := TCommonBlock.Create;
+  InititializeSection.ParentModule := Self;
+  FinalalizeSection := TCommonBlock.Create;
+  FinalalizeSection.ParentModule := Self;
 end;
 
 destructor TModuleUnit.Destroy;
 begin
+  InititializeSection.Free;
+  FinalalizeSection.Free;
   inherited Destroy;
 end;