Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Fixed long lock after pausing the program for too long.

  • Loading branch information...
commit 86400fc4eeedd024e481031527d1fc1a41aa97f6 1 parent 8176e9f
Kostas Michalopoulos badsector authored

Showing 2 changed files with 11 additions and 6 deletions. Show diff stats Hide diff stats

  1. +9 5 dcpustud.lpi
  2. +2 1  mainunit.pas
14 dcpustud.lpi
@@ -94,10 +94,11 @@
94 94 <ComponentName Value="Main"/>
95 95 <ResourceBaseClass Value="Form"/>
96 96 <UnitName Value="MainUnit"/>
  97 + <IsVisibleTab Value="True"/>
97 98 <EditorIndex Value="0"/>
98 99 <WindowIndex Value="0"/>
99   - <TopLine Value="307"/>
100   - <CursorPos X="68" Y="311"/>
  100 + <TopLine Value="657"/>
  101 + <CursorPos X="65" Y="674"/>
101 102 <UsageCount Value="58"/>
102 103 <Loaded Value="True"/>
103 104 <LoadedDesigner Value="True"/>
@@ -106,11 +107,10 @@
106 107 <Filename Value="dcpu16.pas"/>
107 108 <IsPartOfProject Value="True"/>
108 109 <UnitName Value="DCPU16"/>
109   - <IsVisibleTab Value="True"/>
110 110 <EditorIndex Value="2"/>
111 111 <WindowIndex Value="0"/>
112 112 <TopLine Value="530"/>
113   - <CursorPos X="7" Y="556"/>
  113 + <CursorPos X="19" Y="533"/>
114 114 <UsageCount Value="58"/>
115 115 <Loaded Value="True"/>
116 116 </Unit2>
@@ -336,7 +336,7 @@
336 336 <UsageCount Value="10"/>
337 337 </Unit31>
338 338 </Units>
339   - <JumpHistory Count="29" HistoryIndex="28">
  339 + <JumpHistory Count="30" HistoryIndex="29">
340 340 <Position1>
341 341 <Filename Value="mainunit.pas"/>
342 342 <Caret Line="458" Column="3" TopLine="458"/>
@@ -453,6 +453,10 @@
453 453 <Filename Value="dcpu16.pas"/>
454 454 <Caret Line="199" Column="11" TopLine="173"/>
455 455 </Position29>
  456 + <Position30>
  457 + <Filename Value="mainunit.pas"/>
  458 + <Caret Line="322" Column="26" TopLine="307"/>
  459 + </Position30>
456 460 </JumpHistory>
457 461 </ProjectOptions>
458 462 <CompilerOptions>
3  mainunit.pas
@@ -671,6 +671,7 @@ procedure TMain.ApplicationProperties1Idle(Sender: TObject; var Done: Boolean);
671 671 for Reg:=crA to crO do
672 672 SpinEditByReg[Reg].Color:=clDefault;
673 673 try
  674 + if NowTicks - LastTicks > 5000 then LastTicks:=NowTicks;
674 675 while NowTicks - LastTicks > 10 do begin
675 676 CyclesToRun:=1000;
676 677 while CyclesToRun > 1 do begin
@@ -1070,4 +1071,4 @@ procedure TMain.KeyWasTyped(Ch: Char);
1070 1071 end;
1071 1072
1072 1073 end.
1073   -
  1074 +

0 comments on commit 86400fc

Please sign in to comment.
Something went wrong with that request. Please try again.