Changeset 13 for branches/DelphiToC/UAssemblerSource.pas

Timestamp:

Apr 9, 2009, 9:53:40 AM (16 years ago)

Author:

george

Message:

• Upraveno: Rozdělení původního kódu do více tříd.

Location:

branches/DelphiToC

Files:

• . (modified) (1 prop)
• UAssemblerSource.pas (modified) (3 diffs)

branches/DelphiToC/UAssemblerSource.pas

@@ -2 +2 @@
 
 interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, UPascalSource, UCodeProducer;
 
 type
@@ -11 +15 @@
   end;
 
+  TAssemblerLine = class
+    LabelName: string;
+    Instruction: string;
+    Operand1: string;
+    Operand2: string;
+    SourceCode: string;
+    function AsString: string;
+  end;
+
+  TAssemblerProducer = class(TCodeProducer)
+    AssemblyCode: TList; // TList<TAssemblerLine>
+    destructor Destroy; override;
+  private
+    procedure AddInstruction(LabelName, Instruction, Operand1,
+      Operand2: string);
+    procedure GenerateCommonBlock(CommonBlock: TCommonBlock; LabelPrefix: string);
+    procedure GenerateExpression(Expression: TExpression; LabelPrefix: string);
+    procedure GenerateProgram(ProgramBlock: TProgram);
+  end;
+
+
 implementation
+
+
+{ TAssemblerLine }
+
+function TAssemblerLine.AsString: string;
+begin
+  if LabelName = '' then LabelName := #9 else
+    LabelName := LabelName + ':'#9;
+  if Operand2 <> '' then Operand1 := Operand1 + ', ';
+
+  Result := LabelName + Instruction + ' ' + Operand1 + Operand2;
+end;
+
+{ TAssemblerProducer }
+
+procedure TAssemblerProducer.AddInstruction(LabelName, Instruction, Operand1,
+  Operand2: string);
+var
+  NewLine: TAssemblerLine;
+begin
+  NewLine := TAssemblerLine.Create;
+  AssemblyCode.Add(NewLine);
+  NewLine.LabelName := LabelName;
+  NewLine.Instruction := Instruction;
+  NewLine.Operand1 := Operand1;
+  NewLine.Operand2 := Operand2;
+end;
+
 
 (*
@@ -43 +96 @@
 *)
 
+destructor TAssemblerProducer.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to AssemblyCode.Count - 1 do
+    TAssemblerLine(AssemblyCode[I]).Free;
+  AssemblyCode.Free;
+  inherited;
+end;
+
+procedure TAssemblerProducer.GenerateCommonBlock(CommonBlock: TCommonBlock; LabelPrefix: string);
+var
+  I: Integer;
+  LabelName: string;
+begin
+  with CommonBlock do
+  for I := 0 to Operations.Count - 1 do
+  with TOperation(Operations[I]) do begin
+    if Referenced then LabelName := Name + '_L' + IntToStr(I)
+      else LabelName := '';
+    case Instruction of
+      inJump: begin
+        AddInstruction(LabelName, 'JMP', Name + '_L' + IntToStr(GotoAddress), '');
+      end;
+      inConditionalJump: begin
+        GenerateExpression(ExpressionTree, LabelPrefix + '_L' + IntToStr(GotoAddress));
+        AddInstruction(LabelName, 'BRCS', Name + '_L' + IntToStr(GotoAddress), '');
+      end;
+      inExpressionEvaluation: begin
+        if LabelName <> '' then AddInstruction(LabelName, '', '', '');
+        GenerateExpression(ExpressionTree, Name + '_L' + IntToStr(GotoAddress));
+      end;
+      inReturn:
+        AddInstruction(LabelName, 'RET', '', '');
+    end;
+  end;
+end;
+
+procedure TAssemblerProducer.GenerateExpression(Expression: TExpression; LabelPrefix: string);
+var
+  I: Integer;
+begin
+  with Expression do
+  case NodeType of
+    ntNone: ;
+    ntVariable: if Assigned(Variable) then AddInstruction('', 'GETVAR', Variable.Name, '');
+    nTFunction: AddInstruction('', 'CALL', Method.Name, '');
+    ntConstant: AddInstruction('', 'CONST', '', '');
+    ntOperator: begin
+      for I := 0 to SubItems.Count - 1 do
+        GenerateExpression(TExpression(SubItems[I]), LabelPrefix);
+      if OperatorName = '+' then AddInstruction('', 'ADD', '', '')
+      else if OperatorName = '-' then AddInstruction('', 'SUB', '', '')
+      else if OperatorName = '*' then AddInstruction('', 'MUL', '', '')
+      else if OperatorName = '/' then AddInstruction('', 'DIV', '', '')
+      else if OperatorName = 'div' then AddInstruction('', 'DIV', '', '')
+      else if OperatorName = 'mod' then AddInstruction('', 'MOD', '', '')
+      else if OperatorName = 'xor' then AddInstruction('', 'XOR', '', '')
+      else if OperatorName = 'or' then AddInstruction('', 'OR', '', '')
+      else if OperatorName = 'and' then AddInstruction('', 'AND', '', '')
+      else if OperatorName = 'not' then AddInstruction('', 'NEG', '', '')
+      else if OperatorName = ':=' then AddInstruction('', 'ST', '', '')
+      else if OperatorName = '>' then AddInstruction('', 'CP', '', '')
+      else if OperatorName = '>=' then AddInstruction('', 'CP', '', '')
+      else if OperatorName = '<' then AddInstruction('', 'CP', '', '')
+      else if OperatorName = '<=' then AddInstruction('', 'CP', '', '')
+      else if OperatorName = '=' then AddInstruction('', 'TST', '', '')
+      else if OperatorName = '<>' then AddInstruction('', 'CP', '', '');
+    end;
+  end;
+end;
+
+procedure TAssemblerProducer.GenerateProgram(ProgramBlock: TProgram);
+var
+  I: Integer;
+begin
+  with ProgramBlock do
+  for I := 0 to Modules.Count - 1 do
+    GenerateCommonBlock(TModule(Modules[I]), '');
+end;
+
+
+
+
 end.