Changeset 19 for trunk/Compiler/USourceCode.pas

Timestamp:

Nov 9, 2010, 11:19:28 AM (13 years ago)

Author:

george

Message:

• Added: Support for multiple combined sections var, type, const and functions.
• Modified: Functions for parsing types redone to return Boolean result of success.

File:

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

trunk/Compiler/USourceCode.pas

@@ -7 +7 @@
 
 uses
-  SysUtils, Variants, Classes, Dialogs;
+  SysUtils, Variants, Classes, Dialogs, SpecializedObjectList;
 
 type
@@ -165 +165 @@
   {$I 'GenericObjectList.inc'}
 
+  TCommonBlockSection = (cbsVariable, cbsType, cbsConstant);
+
   TCommonBlock = class
     Name: string;
@@ -173 +175 @@
     Variables: TVariableList;
     Functions: TFunctionList;
+    Order: TListObject;
     Code: TBeginEnd;
     constructor Create; virtual;
@@ -186 +189 @@
     Size: Integer;
     UsedType: TType;
+    Exported: Boolean;
     Visibility: TTypeVisibility;
   end;
@@ -679 +683 @@
   Code.Parent := Self;
   Code.CommonBlock := Self;
+  Order := TListObject.Create;
+  Order.OwnsObjects := False;
 end;
 
@@ -688 +694 @@
   Functions.Free;
   Code.Free;
+  Order.Free;
   inherited;
 end;
@@ -705 +712 @@
   I := 0;
   while (I < Count) and (LowerCase(Items[I].Name) <> LowerCase(Name)) do Inc(I);
-  if I < Count then Result := Items[I] else Result := nil;
+  if I < Count then Result := Items[I]
+    else Result := nil;
 
   // Search in parent