Ignore:
Timestamp:
Aug 9, 2010, 3:05:26 PM (14 years ago)
Author:
george
Message:

Added support for loop for-to-do.
System types and functions are not generated to output code.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DelphiToC/UPascalCompiler.pas

    r49 r50  
    100100          UsedType := nil;
    101101        end;
     102        with TType(Types[Types.Add(TType.Create)]) do begin
     103          Name := 'ShortInt';
     104          System := True;
     105          Size := 1;
     106          UsedType := nil;
     107        end;
     108        with TType(Types[Types.Add(TType.Create)]) do begin
     109          Name := 'Word';
     110          System := True;
     111          Size := 2;
     112          UsedType := nil;
     113        end;
     114        with TType(Types[Types.Add(TType.Create)]) do begin
     115          Name := 'SmallInt';
     116          System := True;
     117          Size := 2;
     118          UsedType := nil;
     119        end;
     120        with TType(Types[Types.Add(TType.Create)]) do begin
     121          Name := 'Cardinal';
     122          System := True;
     123          Size := 3;
     124          UsedType := nil;
     125        end;
     126        with TType(Types[Types.Add(TType.Create)]) do begin
     127          Name := 'Integer';
     128          System := True;
     129          Size := 3;
     130          UsedType := nil;
     131        end;
     132        with TType(Types[Types.Add(TType.Create)]) do begin
     133          Name := 'Char';
     134          System := True;
     135          Size := 1;
     136          UsedType := nil;
     137        end;
     138        with TType(Types[Types.Add(TType.Create)]) do begin
     139          Name := 'String';
     140          System := True;
     141          Size := 1;
     142          UsedType := nil;
     143        end;
    102144        with TFunction(Functions[Functions.Add(TFunction.Create)]) do begin
    103145          Name := 'Exit';
     146          System := True;
     147          ResultType := TType(TModule(Modules[0]).Types[0]);
     148        end;
     149        with TFunction(Functions[Functions.Add(TFunction.Create)]) do begin
     150          Name := 'Break';
     151          System := True;
     152          ResultType := TType(TModule(Modules[0]).Types[0]);
     153        end;
     154        with TFunction(Functions[Functions.Add(TFunction.Create)]) do begin
     155          Name := 'Continue';
     156          System := True;
    104157          ResultType := TType(TModule(Modules[0]).Types[0]);
    105158        end;
Note: See TracChangeset for help on using the changeset viewer.