Changeset 20 for branches/DelphiToC/UAssemblerSource.pas

Timestamp:

Sep 8, 2009, 2:01:55 PM (15 years ago)

Author:

george

Message:

• Přidáno: Analýza páru dalších programových konstrukcí.
• Přidáno: Pár jednoduchých testovacích příkladů pro překladač.

File:

• branches/DelphiToC/UAssemblerSource.pas (modified) (3 diffs)

branches/DelphiToC/UAssemblerSource.pas

@@ -28 +28 @@
     procedure AddInstruction(LabelName, Instruction, Operand1,
       Operand2: string);
-    procedure GenerateCommonBlock(CommonBlock: TCommonBlock; LabelPrefix: string);
+//    procedure GenerateCommonBlock(CommonBlock: TCommonBlock; LabelPrefix: string);
     procedure GenerateExpression(Expression: TExpression; LabelPrefix: string);
     procedure GenerateProgram(ProgramBlock: TProgram);
@@ -114 +114 @@
 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), '');
+(*
+  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;
-      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);
@@ -180 +182 @@
   I: Integer;
 begin
-  with ProgramBlock do
-  for I := 0 to Modules.Count - 1 do
-    GenerateCommonBlock(TModule(Modules[I]), '');
+//  with ProgramBlock do
+//  for I := 0 to Modules.Count - 1 do
+//    GenerateCommonBlock(TModule(Modules[I]), '');
 end;