Changeset 30 for trunk/Target/UTargetC.pas
- Timestamp:
- Feb 18, 2012, 7:49:17 PM (13 years ago)
- Location:
- trunk/Target
- Files:
-
- 1 copied
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Target/UTargetC.pas
r29 r30 1 unit U CompilerC;1 unit UTargetC; 2 2 3 3 {$mode Delphi}{$H+} … … 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, U Compiler, Process, Dialogs;8 Classes, SysUtils, FileUtil, UTarget, Process, Dialogs; 9 9 10 10 type 11 11 12 { T BrainFuckCompilerC }12 { TTargetC } 13 13 14 T BrainFuckCompilerC = class(TBrainFuckCompiler)14 TTargetC = class(TTarget) 15 15 constructor Create; override; 16 16 procedure Compile; override; … … 21 21 implementation 22 22 23 { T BrainFuckCompilerC }23 { TTargetC } 24 24 25 constructor T BrainFuckCompilerC.Create;25 constructor TTargetC.Create; 26 26 begin 27 27 inherited Create; … … 37 37 end; 38 38 39 procedure T BrainFuckCompilerC.Compile;39 procedure TTargetC.Compile; 40 40 var 41 41 I: Integer; … … 104 104 end; 105 105 106 procedure T BrainFuckCompilerC.CompileToFile;106 procedure TTargetC.CompileToFile; 107 107 var 108 108 Process: TProcess; … … 133 133 end; 134 134 135 procedure T BrainFuckCompilerC.Run;135 procedure TTargetC.Run; 136 136 begin 137 137 inherited Run;
Note:
See TracChangeset
for help on using the changeset viewer.