Changeset 48 for branches/DelphiToC/UPascalCompiler.pas

Timestamp:

Aug 9, 2010, 1:53:33 PM (14 years ago)

Author:

george

Message:

Added support of parameters for function call.

File:

• branches/DelphiToC/UPascalCompiler.pas (modified) (1 diff)

branches/DelphiToC/UPascalCompiler.pas

@@ -85 +85 @@
           UsedType := nil;
         end;
-        with TFunction(Methods[Methods.Add(TFunction.Create)]) do begin
+        with TFunction(Functions[Functions.Add(TFunction.Create)]) do begin
           Name := 'Exit';
           ResultType := TType(TModule(Modules[0]).Types[0]);
         end;
-        with TFunction(Methods[Methods.Add(TFunction.Create)]) do begin
+        with TFunction(Functions[Functions.Add(TFunction.Create)]) do begin
           Name := 'WriteLn';
           ResultType := TType(TModule(Modules[0]).Types[0]);
+          with TParameter(Parameters[Parameters.Add(TParameter.Create)]) do begin
+            Name := 'Text';
+            ValueType := TType(TModule(Modules[0]).Types[1]);
+          end;
         end;
       end;