Changeset 42 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Aug 5, 2010, 3:13:03 PM (14 years ago)

Author:

george

Message:

Enhanced C code generation.

File:

• branches/DelphiToC/UPascalSource.pas (modified) (11 diffs)

branches/DelphiToC/UPascalSource.pas

@@ -45 +45 @@
 
   TCommand = class
+    Parent: TObject;
     CommonBlock: TCommonBlock;
   end;
@@ -56 +57 @@
 
   TMethodCall = class(TCommand)
-    Method: TMethod;
+    Method: TFunction;
   end;
 
@@ -91 +92 @@
   end;
 
+  { TIfThenElse }
+
   TIfThenElse = class(TCommand)
     Condition: TExpression;
     Command: TCommand;
     ElseCommand: TCommand;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -322 +327 @@
 begin
   I := 0;
-  while (I < Count) and (TConstant(Items[I]).Name <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TConstant(Items[I]).Name) <> Name) do Inc(I);
   if I < Count then Result := TConstant(Items[I]) else begin
     if Assigned(Parent.Parent) then Result := Parent.Parent.Constants.Search(Name)
@@ -377 +382 @@
   Methods.Parent := Self;
   Code := TBeginEnd.Create;
+  Code.Parent := Self;
   Code.CommonBlock := Self;
 end;
@@ -402 +408 @@
 begin
   I := 0;
-  while (I < Count) and (TType(Items[I]).Name <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TType(Items[I]).Name) <> Name) do Inc(I);
   if I < Count then Result := TType(Items[I]) else begin
     if Assigned(Parent.Parent) then Result := Parent.Parent.Types.Search(Name)
@@ -423 +429 @@
 begin
   I := 0;
-  while (I < Count) and (TVariable(Items[I]).Name <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TVariable(Items[I]).Name) <> Name) do Inc(I);
   if I < Count then Result := TVariable(Items[I]) else begin
     if Assigned(Parent.Parent) then
@@ -448 +454 @@
 begin
   I := 0;
-  while (I < Count) and (TFunction(Items[I]).Name <> Name) do Inc(I);
+  while (I < Count) and (LowerCase(TFunction(Items[I]).Name) <> Name) do Inc(I);
   if I < Count then Result := TFunction(Items[I]) else begin
     if Assigned(Parent.Parent) then Result := Parent.Parent.Methods.Search(Name)
@@ -487 +493 @@
 
 destructor TOperationList.Destroy;
-var
-  I: Integer;
-begin
-  for I := 0 to Count - 1 do
-    TOperation(Items[I]).Free;
+begin
   inherited;
 end;
@@ -536 +538 @@
 constructor TBeginEnd.Create;
 begin
+  inherited;
   Commands := TCommandList.Create;
 end;
@@ -587 +590 @@
 end;
 
+{ TIfThenElse }
+
+constructor TIfThenElse.Create;
+begin
+  Condition := TExpression.Create;
+end;
+
+destructor TIfThenElse.Destroy;
+begin
+  Condition.Destroy;
+  inherited Destroy;
+end;
+
 end.