Changeset 204 for branches/interpreter2/UParser.pas

Timestamp:

Apr 17, 2020, 11:07:37 PM (5 years ago)

Author:

chronos

Message:

• Added: Simple PHP code generator.

File:

• branches/interpreter2/UParser.pas (modified) (1 diff)

branches/interpreter2/UParser.pas

@@ -605 +605 @@
   end;
   with Block.Functions.AddNew('IntToStr') do begin
+    InternalName := 'IntToStr';
     Params.AddNew('Value', TypeInteger);
     ResultType := TypeString;
   end;
   with Block.Functions.AddNew('StrToInt') do begin
+    InternalName := 'StrToInt';
     Params.AddNew('Value', TypeString);
     ResultType := TypeInteger;
   end;
   with Block.Functions.AddNew('WriteLn') do begin
+    InternalName := 'WriteLn';
     Params.AddNew('Text', TypeString);
   end;
   with Block.Functions.AddNew('Write') do begin
+    InternalName := 'Write';
     Params.AddNew('Text', TypeString);
   end;