Changeset 68
- Timestamp:
- Oct 11, 2015, 6:28:24 PM (9 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r67 r68 1 1 object FormMain: TFormMain 2 Left = 4 082 Left = 490 3 3 Height = 586 4 Top = 31 14 Top = 315 5 5 Width = 860 6 6 Caption = 'LazFuck' -
trunk/LazFuckIDE.lpi
r67 r68 107 107 <HasResources Value="True"/> 108 108 <ResourceBaseClass Value="Form"/> 109 <UnitName Value="UFormMain"/>110 109 </Unit1> 111 110 <Unit2> … … 115 114 <HasResources Value="True"/> 116 115 <ResourceBaseClass Value="Form"/> 117 <UnitName Value="UFormOptions"/>118 116 </Unit2> 119 117 <Unit3> … … 123 121 <HasResources Value="True"/> 124 122 <ResourceBaseClass Value="Form"/> 125 <UnitName Value="UFormCPU"/>126 123 </Unit3> 127 124 <Unit4> … … 135 132 <Filename Value="UTarget.pas"/> 136 133 <IsPartOfProject Value="True"/> 137 <UnitName Value="UTarget"/>138 134 </Unit5> 139 135 <Unit6> 140 136 <Filename Value="Target\UTargetC.pas"/> 141 137 <IsPartOfProject Value="True"/> 142 <UnitName Value="UTargetC"/>143 138 </Unit6> 144 139 <Unit7> 145 140 <Filename Value="Target\UTargetDelphi.pas"/> 146 141 <IsPartOfProject Value="True"/> 147 <UnitName Value="UTargetDelphi"/>148 142 </Unit7> 149 143 <Unit8> 150 144 <Filename Value="Target\UTargetInterpretter.pas"/> 151 145 <IsPartOfProject Value="True"/> 152 <UnitName Value="UTargetInterpretter"/>153 146 </Unit8> 154 147 <Unit9> 155 148 <Filename Value="Target\UTargetPHP.pas"/> 156 149 <IsPartOfProject Value="True"/> 157 <UnitName Value="UTargetPHP"/>158 150 </Unit9> 159 151 <Unit10> … … 163 155 <HasResources Value="True"/> 164 156 <ResourceBaseClass Value="Form"/> 165 <UnitName Value="UFormOutput"/>166 157 </Unit10> 167 158 <Unit11> … … 171 162 <HasResources Value="True"/> 172 163 <ResourceBaseClass Value="Form"/> 173 <UnitName Value="UFormInput"/>174 164 </Unit11> 175 165 <Unit12> … … 179 169 <HasResources Value="True"/> 180 170 <ResourceBaseClass Value="Form"/> 181 <UnitName Value="UFormMemory"/>182 171 </Unit12> 183 172 <Unit13> … … 186 175 <ComponentName Value="FormMessages"/> 187 176 <ResourceBaseClass Value="Form"/> 188 <UnitName Value="UFormMessages"/>189 177 </Unit13> 190 178 <Unit14> 191 179 <Filename Value="Target\UTargetJava.pas"/> 192 180 <IsPartOfProject Value="True"/> 193 <UnitName Value="UTargetJava"/>194 181 </Unit14> 195 182 <Unit15> … … 199 186 <HasResources Value="True"/> 200 187 <ResourceBaseClass Value="Form"/> 201 <UnitName Value="UFormSourceCode"/>202 188 </Unit15> 203 189 <Unit16> … … 207 193 <HasResources Value="True"/> 208 194 <ResourceBaseClass Value="Form"/> 209 <UnitName Value="UFormTargetCode"/>210 195 </Unit16> 211 196 <Unit17> … … 215 200 <HasResources Value="True"/> 216 201 <ResourceBaseClass Value="Form"/> 217 <UnitName Value="UFormTargetOptions"/>218 202 </Unit17> 219 203 <Unit18> … … 223 207 <HasResources Value="True"/> 224 208 <ResourceBaseClass Value="DataModule"/> 225 <UnitName Value="UCore"/>226 209 </Unit18> 227 210 <Unit19> 228 211 <Filename Value="Target\UTargetFPC.pas"/> 229 212 <IsPartOfProject Value="True"/> 230 <UnitName Value="UTargetFPC"/>231 213 </Unit19> 232 214 <Unit20> … … 236 218 <HasResources Value="True"/> 237 219 <ResourceBaseClass Value="Form"/> 238 <UnitName Value="UFormLog"/>239 220 </Unit20> 240 221 <Unit21> 241 222 <Filename Value="UProject.pas"/> 242 223 <IsPartOfProject Value="True"/> 243 <UnitName Value="UProject"/>244 224 </Unit21> 245 225 <Unit22> 246 226 <Filename Value="UBFTarget.pas"/> 247 227 <IsPartOfProject Value="True"/> 248 <UnitName Value="UBFTarget"/>249 228 </Unit22> 250 229 </Units> -
trunk/Target/UTargetInterpretter.pas
r66 r68 55 55 public 56 56 FProgramBreakpoints: array of Boolean; 57 SourceJump: array of Integer;58 57 SourceBreakpoint: array of Boolean; 59 58 Memory: array of Integer; … … 176 175 I: Integer; 177 176 begin 178 SetLength(SourceJump, Length(FProgram));179 //FillChar(Pointer(SourceJump)^, Length(SourceJump), 0);180 for I := 0 to Length(FProgram) - 1 do181 SourceJump[I] := 0;182 177 SetLength(Loop, 0); 183 178 for I := 0 to Length(FProgram) - 1 do begin … … 188 183 end; 189 184 cmLoopEnd: begin 190 if SourceJump[I] > 0 then raise Exception.Create(SJumpTableColision); 191 SourceJump[I] := Loop[High(Loop)]; 192 if SourceJump[Loop[High(Loop)]] > 0 then raise Exception.Create(SJumpTableColision); 193 SourceJump[Loop[High(Loop)]] := I; 185 if FProgram[I].Parameter > 0 then 186 raise Exception.Create(SJumpTableColision); 187 FProgram[I].Parameter := Loop[High(Loop)]; 188 if FProgram[Loop[High(Loop)]].Parameter > 0 then 189 raise Exception.Create(SJumpTableColision); 190 FProgram[Loop[High(Loop)]].Parameter := I; 194 191 SetLength(Loop, Length(Loop) - 1); 195 192 end; … … 221 218 begin 222 219 if Memory[MemoryPosition] = 0 then 223 FProgramIndex := SourceJump[FProgramIndex];220 FProgramIndex := FProgram[FProgramIndex].Parameter; 224 221 end; 225 222 … … 227 224 begin 228 225 if Memory[MemoryPosition] > 0 then 229 FProgramIndex := SourceJump[FProgramIndex]- 1;226 FProgramIndex := FProgram[FProgramIndex].Parameter - 1; 230 227 end; 231 228 … … 347 344 if Step.Operation = soStepOut then begin 348 345 BreakPoints.SetSystem(Step.TargetPosition + 1); 349 Step := DebugSteps.SearchByTargetPos( SourceJump[Step.TargetPosition]);346 Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter); 350 347 BreakPoints.AddSystem(Step.TargetPosition); 351 348 end else 352 349 if Step.Operation = soStepIn then begin 353 350 BreakPoints.SetSystem(Step.TargetPosition + 1); 354 Step := DebugSteps.SearchByTargetPos( SourceJump[Step.TargetPosition]);351 Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter); 355 352 BreakPoints.AddSystem(Step.TargetPosition); 356 353 end else BreakPoints.SetSystem(Step.TargetPosition + 1); … … 369 366 if Step.Operation = soStepOut then begin 370 367 BreakPoints.SetSystem(Step.TargetPosition + 1); 371 Step := DebugSteps.SearchByTargetPos( SourceJump[Step.TargetPosition]);368 Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter); 372 369 BreakPoints.AddSystem(Step.TargetPosition); 373 370 end else 374 371 if Step.Operation = soStepIn then begin 375 Step := DebugSteps.SearchByTargetPos( SourceJump[Step.TargetPosition]);372 Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter); 376 373 BreakPoints.SetSystem(Step.TargetPosition + 1); 377 374 end else BreakPoints.SetSystem(Step.TargetPosition + 1); -
trunk/UProject.pas
r62 r68 26 26 { TProject } 27 27 28 29 28 procedure TProject.SetOpenned(AValue: Boolean); 30 29 begin
Note:
See TracChangeset
for help on using the changeset viewer.