Changeset 6 for trunk/Compiler/Produce/UProducerAsm8051.pas

Timestamp:

Nov 5, 2010, 11:31:04 AM (15 years ago)

Author:

george

Message:

• Added: Typecasting support.
• Fixed: Function call in expressions.
• Added: Producer module specify generated file name, extension and placing.

File:

• trunk/Compiler/Produce/UProducerAsm8051.pas (modified) (3 diffs)

trunk/Compiler/Produce/UProducerAsm8051.pas

@@ -108 +108 @@
 begin
   AssemblyCode := TObjectList.Create;
-  FileExtension := '.asm';
 end;
 
@@ -155 +154 @@
     ntNone: ;
     ntVariable: if Assigned(Variable) then AddInstruction('', 'GETVAR', Variable.Name, '');
-    nTFunction: AddInstruction('', 'CALL', FunctionCall.Name, '');
+    nTFunction: AddInstruction('', 'CALL', FunctionCall.FunctionRef.Name, '');
     ntConstant: AddInstruction('', 'CONST', '', '');
     ntOperator: begin
@@ -192 +191 @@
 procedure TProducerAsm8051.GenerateModule(Module: TModule);
 begin
-
+  Module.TargetFile := Module.Name + '.asm';
 end;