Changeset 4 for branches/Void/UCompilator.pas

Timestamp:

Nov 6, 2009, 2:15:04 PM (15 years ago)

Author:

george

Message:

 

File:

• branches/Void/UCompilator.pas (modified) (1 diff)

branches/Void/UCompilator.pas

@@ -56 +56 @@
   WriteLn(Command);
   if Command = 'Write' then Output.Add('WriteLn(''' + Line + ''');')
-  else if Command = 'Define' then Output.Add('// Define' + Line)
-  else if Command = 'Pause' then Output.Add('ReadLn;')
+  else if Command = 'Assign' then begin
+    Output.Add('// Define' + Line)
+  end else if Command = 'Pause' then Output.Add('ReadLn;')
   else if Command = 'Exit' then Output.Add('Exit;')
   else begin