Changeset 44 for trunk/Compiler


Ignore:
Timestamp:
Mar 4, 2012, 9:43:53 AM (13 years ago)
Author:
chronos
Message:
  • Fixed: Selection of target.
Location:
trunk/Compiler
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Target/ASM8051/UProducerASM8051.pas

    r41 r44  
    108108begin
    109109  AssemblyCode := TObjectList.Create;
    110   Name := 'ASM 8051';
    111110  {$IFDEF Windows}
    112111  CompilerPath := 'c:\ASM8051\ASM51.EXE';

  • trunk/Compiler/Target/Delphi/UProducerPascal.pas

    r41 r44  
    5555begin
    5656  inherited;
    57   Name := 'Delphi';
    5857  {$IFDEF Windows}
    5958  CompilerPath := 'c:\Program Files\Embarcadero\RAD Studio\9.0\bin\DCC32.EXE';
     59  {$ENDIF}
     60  {$IFDEF Linux}
     61  CompilerPath := '';
    6062  {$ENDIF}
    6163end;

  • trunk/Compiler/Target/Dynamic C/UProducerDynamicc.pas

    r41 r44  
    4949constructor TProducerDynamicC.Create;
    5050begin
    51   Name := 'Dynamic C';
    5251  {$IFDEF Windows}
    5352  CompilerPath := 'c:\Program Files\Dynamic C Rabbit 9.62\Dcrab_9.62.exe';

  • trunk/Compiler/Target/GCC/UProducerGCC.pas

    r41 r44  
    5656  TextSource := TStringList.Create;
    5757  IndentationLength := 2;
    58   Name := 'GCC C';
    5958  {$IFDEF Windows}
    6059  CompilerPath := 'c:\Program Files\MinGW\bin\gcc.exe -o %1:s';

  • trunk/Compiler/TranspascalCompiler.lpk

    r42 r44  
    99      <PathDelim Value="\"/>
    1010      <SearchPaths>
    11         <OtherUnitFiles Value="Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML"/>
     11        <OtherUnitFiles Value="Analyze;Target;Target\Interpretter;Target\ASM8051;Target\Java;Target\GCC;Target\PHP;Target\Delphi;Target\Dynamic C;Target\XML"/>
    1212        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1313      </SearchPaths>

  • trunk/Compiler/UAnalyzer.pas

    r41 r44  
    4747    procedure GetNextToken;
    4848  public
     49    SysName: string;
    4950    Name: string;
    5051    ProgramCode: TProgram;
    … …  
    8283
    8384  // TListAnalyzer = TGObjectList<Integer, TAnalyzer>
    84   TListAnalyzer = class(TListObject);
     85  TListAnalyzer = class(TListObject)
     86  end;
    8587
    8688resourcestring

  • trunk/Compiler/UCompiler.pas

    r41 r44  
    4848
    4949uses
    50   UTargets;
     50  UTargets, UAnalyzerPascal;
    5151
    5252resourcestring
    … …  
    6363constructor TCompiler.Create;
    6464begin
     65  Analyzer := TAnalyzerPascal.Create;
    6566  Targets := TListTarget.Create;
    6667  SourceFiles := TListString.Create;
    … …  
    148149  TargetFileName: string;
    149150begin
     151  if Assigned(Target.Producer) then
    150152  try
    151153    ProducedCode := TStringList.Create;
    … …  
    155157      Target.Producer.AssignToStringList(ProducedCode);
    156158      TargetFileName := TargetFolder + DirectorySeparator +
    157         CompiledFolder + DirectorySeparator + Target.Producer.Name +
     159        CompiledFolder + DirectorySeparator + Target.Name +
    158160        DirectorySeparator + TModule(Modules[I]).TargetFile;
    159161      ForceDirectoriesUTF8(ExtractFileDir(TargetFileName));

  • trunk/Compiler/UProducer.pas

    r41 r44  
    1313
    1414  TProducer = class
    15     Name: string;
    1615    TextSource: TStringList;
    1716    IndentationLength: Integer;
Note: See TracChangeset for help on using the changeset viewer.