Changeset 42 for branches/DelphiToC/Example.pas

Timestamp:

Aug 5, 2010, 3:13:03 PM (14 years ago)

Author:

george

Message:

Enhanced C code generation.

File:

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

branches/DelphiToC/Example.pas

@@ -11 +11 @@
   B: Byte;
   sS: Byte;
+  D: Byte;
 begin
   WriteLn;
   begin
+    WriteLn;
+    Pokus;
+    dsd;
     begin
+      WriteLn;
     end;
   end;
   A := 1;
-  While A < 1 do A := A + 1;
+  if A = 2 then begin
+  end;
+  while A < 1 do A := A + 1;
 end.