Changeset 234 for branches/xpascal/Parser.pas

Timestamp:

Jun 27, 2023, 12:50:09 AM (17 months ago)

Author:

chronos

Message:

• Fixed: Procedures generation.
• Fixed: Splitters between panels.

File:

• branches/xpascal/Parser.pas (modified) (1 diff)

branches/xpascal/Parser.pas

@@ -201 +201 @@
     ResultType := TypeBoolean;
   end;
-  with Block.Functions.AddNew('WriteLn') do begin
+  with Block.Procedures.AddNew('WriteLn') do begin
     InternalName := 'WriteLn';
     Params.AddNew('Text', TypeString);
   end;
-  with Block.Functions.AddNew('Write') do begin
+  with Block.Procedures.AddNew('Write') do begin
     InternalName := 'Write';
     Params.AddNew('Text', TypeString);
   end;
-  with Block.Functions.AddNew('ReadLn') do begin
+  with Block.Procedures.AddNew('ReadLn') do begin
     InternalName := 'ReadLn';
     with Params.AddNew('Text', TypeString) do
       Kind := pkVar;
   end;
-  with Block.Functions.AddNew('Read') do begin
+  with Block.Procedures.AddNew('Read') do begin
     InternalName := 'Read';
     with Params.AddNew('Text', TypeString) do