Changeset 30 for trunk/Target/UTargetDelphi.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/UTargetDelphi.pas
r29 r30 1 unit U CompilerDelphi;1 unit UTargetDelphi; 2 2 3 3 {$mode Delphi}{$H+} … … 6 6 7 7 uses 8 Classes, SysUtils, U Compiler;8 Classes, SysUtils, UTarget; 9 9 10 10 type 11 11 12 { T BrainFuckCompilerDelphi }12 { TTargetDelphi } 13 13 14 T BrainFuckCompilerDelphi = class(TBrainFuckCompiler)14 TTargetDelphi = class(TTarget) 15 15 constructor Create; override; 16 16 procedure Compile; override; … … 19 19 implementation 20 20 21 { T BrainFuckCompilerDelphi }21 { TTargetDelphi } 22 22 23 constructor T BrainFuckCompilerDelphi.Create;23 constructor TTargetDelphi.Create; 24 24 begin 25 25 inherited Create; … … 32 32 end; 33 33 34 procedure T BrainFuckCompilerDelphi.Compile;34 procedure TTargetDelphi.Compile; 35 35 var 36 36 I: Integer;
Note:
See TracChangeset
for help on using the changeset viewer.