Changeset 57 for trunk/Compiler
- Timestamp:
- Jul 16, 2012, 4:11:47 PM (12 years ago)
- Location:
- trunk/Compiler
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Analyze/UAnalyzerPascal.pas
r51 r57 150 150 ReadToken; 151 151 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))); 152 157 end; 153 158 … … 169 174 Assign(TExpression(TExpression(Expressions.First).SubItems.Last)); 170 175 TExpression(Expressions.First).SubItems.Last := nil; 171 //ShowMessage(IntToStr(Expressions.Count));172 176 if Expressions.Count > 1 then 173 177 TExpression(Expressions[1]).SubItems.First := nil; -
trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas
r56 r57 128 128 129 129 function TExecutorInterpretter.Evaluate(Expression: TExpression): TValue; 130 var 131 I: Integer; 130 132 begin 131 133 with Expression do … … 149 151 end; 150 152 ntVariable: Result := Variable.Value; 153 ntValue: Result := Value; 151 154 end; 152 155 end; -
trunk/Compiler/TranspascalCompiler.lpk
r56 r57 56 56 </Item7> 57 57 <Item8> 58 <Filename Value="Target\UTargets.pas"/> 59 <UnitName Value="UTargets"/> 60 </Item8> 61 <Item9> 58 62 <Filename Value="Target\Dynamic C\UProducerDynamicc.pas"/> 59 63 <UnitName Value="UProducerDynamicC"/> 60 </Item 8>61 <Item 9>64 </Item9> 65 <Item10> 62 66 <Filename Value="Target\ASM8051\UProducerASM8051.pas"/> 63 67 <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> 66 74 <Filename Value="Target\GCC\UProducerGCC.pas"/> 67 75 <UnitName Value="UProducerGCC"/> 68 </Item1 0>69 <Item1 1>70 <Filename Value="Target\ UTargets.pas"/>71 <UnitName Value="UTarget s"/>72 </Item1 1>73 <Item1 2>76 </Item12> 77 <Item13> 78 <Filename Value="Target\GCC\UTargetGCC.pas"/> 79 <UnitName Value="UTargetGCC"/> 80 </Item13> 81 <Item14> 74 82 <Filename Value="Target\Delphi\UProducerPascal.pas"/> 75 83 <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> 78 102 <Filename Value="Target\Interpretter\UTargetInterpretter.pas"/> 79 103 <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"/>104 104 </Item19> 105 105 </Files> -
trunk/Compiler/TranspascalCompiler.pas
r56 r57 9 9 uses 10 10 UCompiler, USourceCode, UProducer, UAnalyzer, UTarget, UExecutor, 11 UAnalyzerPascal, U ProducerDynamicc, UProducerASM8051, UProducerGCC,12 UTarget s, UProducerPascal, UTargetInterpretter, UTargetDelphi, UTargetPHP,13 UTarget Java, UTargetXML, UTargetASM8051, UTargetGCC, LazarusPackageIntf;11 UAnalyzerPascal, UTargets, UProducerDynamicc, UProducerASM8051, 12 UTargetASM8051, UProducerGCC, UTargetGCC, UProducerPascal, UTargetDelphi, 13 UTargetPHP, UTargetJava, UTargetXML, UTargetInterpretter, LazarusPackageIntf; 14 14 15 15 implementation
Note:
See TracChangeset
for help on using the changeset viewer.