Changeset 57 for trunk/Compiler


Ignore:
Timestamp:
Jul 16, 2012, 4:11:47 PM (12 years ago)
Author:
chronos
Message:
  • Modified: Testing interpretter.
Location:
trunk/Compiler
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/Compiler/Analyze/UAnalyzerPascal.pas

    r51 r57  
    150150          ReadToken;
    151151        end;
     152        ShowMessage(IntToStr(TExpression(Expressions.Last).SubItems.Count) + ' ' + TExpression(Expressions.Last).OperatorName);
     153        if Assigned(TExpression(Expressions.First)) then
     154          ShowMessage('First ' + IntToStr(Integer(TExpression(Expressions.Last).SubItems.First)));
     155        if Assigned(TExpression(Expressions.Last)) then
     156          ShowMessage('Last ' + IntToStr(Integer(TExpression(Expressions.Last).SubItems.Last)));
    152157      end;
    153158
     
    169174        Assign(TExpression(TExpression(Expressions.First).SubItems.Last));
    170175      TExpression(Expressions.First).SubItems.Last := nil;
    171       //ShowMessage(IntToStr(Expressions.Count));
    172176      if Expressions.Count > 1 then
    173177        TExpression(Expressions[1]).SubItems.First := nil;
  • trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas

    r56 r57  
    128128
    129129function TExecutorInterpretter.Evaluate(Expression: TExpression): TValue;
     130var
     131  I: Integer;
    130132begin
    131133  with Expression do
     
    149151    end;
    150152    ntVariable: Result := Variable.Value;
     153    ntValue: Result := Value;
    151154  end;
    152155end;
  • trunk/Compiler/TranspascalCompiler.lpk

    r56 r57  
    5656      </Item7>
    5757      <Item8>
     58        <Filename Value="Target\UTargets.pas"/>
     59        <UnitName Value="UTargets"/>
     60      </Item8>
     61      <Item9>
    5862        <Filename Value="Target\Dynamic C\UProducerDynamicc.pas"/>
    5963        <UnitName Value="UProducerDynamicC"/>
    60       </Item8>
    61       <Item9>
     64      </Item9>
     65      <Item10>
    6266        <Filename Value="Target\ASM8051\UProducerASM8051.pas"/>
    6367        <UnitName Value="UProducerAsm8051"/>
    64       </Item9>
    65       <Item10>
     68      </Item10>
     69      <Item11>
     70        <Filename Value="Target\ASM8051\UTargetASM8051.pas"/>
     71        <UnitName Value="UTargetASM8051"/>
     72      </Item11>
     73      <Item12>
    6674        <Filename Value="Target\GCC\UProducerGCC.pas"/>
    6775        <UnitName Value="UProducerGCC"/>
    68       </Item10>
    69       <Item11>
    70         <Filename Value="Target\UTargets.pas"/>
    71         <UnitName Value="UTargets"/>
    72       </Item11>
    73       <Item12>
     76      </Item12>
     77      <Item13>
     78        <Filename Value="Target\GCC\UTargetGCC.pas"/>
     79        <UnitName Value="UTargetGCC"/>
     80      </Item13>
     81      <Item14>
    7482        <Filename Value="Target\Delphi\UProducerPascal.pas"/>
    7583        <UnitName Value="UProducerPascal"/>
    76       </Item12>
    77       <Item13>
     84      </Item14>
     85      <Item15>
     86        <Filename Value="Target\Delphi\UTargetDelphi.pas"/>
     87        <UnitName Value="UTargetDelphi"/>
     88      </Item15>
     89      <Item16>
     90        <Filename Value="Target\PHP\UTargetPHP.pas"/>
     91        <UnitName Value="UTargetPHP"/>
     92      </Item16>
     93      <Item17>
     94        <Filename Value="Target\Java\UTargetJava.pas"/>
     95        <UnitName Value="UTargetJava"/>
     96      </Item17>
     97      <Item18>
     98        <Filename Value="Target\XML\UTargetXML.pas"/>
     99        <UnitName Value="UTargetXML"/>
     100      </Item18>
     101      <Item19>
    78102        <Filename Value="Target\Interpretter\UTargetInterpretter.pas"/>
    79103        <UnitName Value="UTargetInterpretter"/>
    80       </Item13>
    81       <Item14>
    82         <Filename Value="Target\Delphi\UTargetDelphi.pas"/>
    83         <UnitName Value="UTargetDelphi"/>
    84       </Item14>
    85       <Item15>
    86         <Filename Value="Target\PHP\UTargetPHP.pas"/>
    87         <UnitName Value="UTargetPHP"/>
    88       </Item15>
    89       <Item16>
    90         <Filename Value="Target\Java\UTargetJava.pas"/>
    91         <UnitName Value="UTargetJava"/>
    92       </Item16>
    93       <Item17>
    94         <Filename Value="Target\XML\UTargetXML.pas"/>
    95         <UnitName Value="UTargetXML"/>
    96       </Item17>
    97       <Item18>
    98         <Filename Value="Target\ASM8051\UTargetASM8051.pas"/>
    99         <UnitName Value="UTargetASM8051"/>
    100       </Item18>
    101       <Item19>
    102         <Filename Value="Target\GCC\UTargetGCC.pas"/>
    103         <UnitName Value="UTargetGCC"/>
    104104      </Item19>
    105105    </Files>
  • trunk/Compiler/TranspascalCompiler.pas

    r56 r57  
    99uses
    1010  UCompiler, USourceCode, UProducer, UAnalyzer, UTarget, UExecutor,
    11   UAnalyzerPascal, UProducerDynamicc, UProducerASM8051, UProducerGCC,
    12   UTargets, UProducerPascal, UTargetInterpretter, UTargetDelphi, UTargetPHP,
    13   UTargetJava, UTargetXML, UTargetASM8051, UTargetGCC, LazarusPackageIntf;
     11  UAnalyzerPascal, UTargets, UProducerDynamicc, UProducerASM8051,
     12  UTargetASM8051, UProducerGCC, UTargetGCC, UProducerPascal, UTargetDelphi,
     13  UTargetPHP, UTargetJava, UTargetXML, UTargetInterpretter, LazarusPackageIntf;
    1414
    1515implementation
Note: See TracChangeset for help on using the changeset viewer.