Ignore:
Timestamp:
Jan 28, 2011, 9:10:16 PM (13 years ago)
Author:
george
Message:
  • Fixed: WaitForEvent functionality. Now TEvent.WaitFor will chane microthread to blocked state with defined timeout. TEvent.SetSignal method will unblock all waiting microthreads.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • MicroThreading/Demo/Demo.lpi

    r157 r158  
    3939      </Item2>
    4040    </RequiredPackages>
    41     <Units Count="65">
     41    <Units Count="67">
    4242      <Unit0>
    4343        <Filename Value="Demo.lpr"/>
    … …  
    4747        <TopLine Value="1"/>
    4848        <CursorPos X="34" Y="16"/>
    49         <UsageCount Value="86"/>
     49        <UsageCount Value="89"/>
    5050      </Unit0>
    5151      <Unit1>
    … …  
    5555        <ResourceBaseClass Value="Form"/>
    5656        <UnitName Value="UMainForm"/>
    57         <EditorIndex Value="4"/>
    58         <WindowIndex Value="0"/>
    59         <TopLine Value="247"/>
    60         <CursorPos X="1" Y="261"/>
    61         <UsageCount Value="86"/>
     57        <EditorIndex Value="5"/>
     58        <WindowIndex Value="0"/>
     59        <TopLine Value="351"/>
     60        <CursorPos X="54" Y="366"/>
     61        <UsageCount Value="89"/>
    6262        <Loaded Value="True"/>
    6363        <LoadedDesigner Value="True"/>
    … …  
    6969        <EditorIndex Value="0"/>
    7070        <WindowIndex Value="0"/>
    71         <TopLine Value="175"/>
    72         <CursorPos X="1" Y="190"/>
    73         <UsageCount Value="45"/>
     71        <TopLine Value="319"/>
     72        <CursorPos X="9" Y="330"/>
     73        <UsageCount Value="46"/>
    7474        <Loaded Value="True"/>
    7575      </Unit2>
    … …  
    144144        <EditorIndex Value="1"/>
    145145        <WindowIndex Value="0"/>
    146         <TopLine Value="896"/>
    147         <CursorPos X="10" Y="911"/>
    148         <UsageCount Value="10"/>
     146        <TopLine Value="469"/>
     147        <CursorPos X="3" Y="484"/>
     148        <UsageCount Value="12"/>
    149149        <Loaded Value="True"/>
    150150      </Unit11>
    … …  
    194194      <Unit18>
    195195        <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/objpas/classes/classesh.inc"/>
    196         <EditorIndex Value="2"/>
     196        <EditorIndex Value="3"/>
    197197        <WindowIndex Value="0"/>
    198198        <TopLine Value="1"/>
    199199        <CursorPos X="50" Y="9"/>
    200         <UsageCount Value="10"/>
     200        <UsageCount Value="12"/>
    201201        <Loaded Value="True"/>
    202202      </Unit18>
    … …  
    410410        <Filename Value="../UPlatform.pas"/>
    411411        <UnitName Value="UPlatform"/>
    412         <EditorIndex Value="3"/>
     412        <EditorIndex Value="4"/>
    413413        <WindowIndex Value="0"/>
    414414        <TopLine Value="23"/>
    415415        <CursorPos X="31" Y="38"/>
    416         <UsageCount Value="25"/>
     416        <UsageCount Value="26"/>
    417417        <Loaded Value="True"/>
    418418      </Unit48>
    … …  
    536536        <UsageCount Value="15"/>
    537537      </Unit64>
     538      <Unit65>
     539        <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/system.inc"/>
     540        <EditorIndex Value="2"/>
     541        <WindowIndex Value="0"/>
     542        <TopLine Value="671"/>
     543        <CursorPos X="1" Y="673"/>
     544        <UsageCount Value="11"/>
     545        <Loaded Value="True"/>
     546      </Unit65>
     547      <Unit66>
     548        <Filename Value="/usr/share/fpcsrc/2.4.0/rtl/inc/objpash.inc"/>
     549        <EditorIndex Value="6"/>
     550        <WindowIndex Value="0"/>
     551        <TopLine Value="160"/>
     552        <CursorPos X="23" Y="175"/>
     553        <UsageCount Value="11"/>
     554        <Loaded Value="True"/>
     555      </Unit66>
    538556    </Units>
    539557    <JumpHistory Count="30" HistoryIndex="29">
    540558      <Position1>
    541559        <Filename Value="../UMicroThreading.pas"/>
    542         <Caret Line="531" Column="1" TopLine="515"/>
     560        <Caret Line="615" Column="1" TopLine="599"/>
    543561      </Position1>
    544562      <Position2>
    545563        <Filename Value="../UMicroThreading.pas"/>
    546         <Caret Line="532" Column="1" TopLine="515"/>
     564        <Caret Line="614" Column="1" TopLine="599"/>
    547565      </Position2>
    548566      <Position3>
    549567        <Filename Value="../UMicroThreading.pas"/>
    550         <Caret Line="954" Column="1" TopLine="939"/>
     568        <Caret Line="615" Column="1" TopLine="599"/>
    551569      </Position3>
    552570      <Position4>
    553571        <Filename Value="../UMicroThreading.pas"/>
    554         <Caret Line="822" Column="1" TopLine="807"/>
     572        <Caret Line="614" Column="1" TopLine="599"/>
    555573      </Position4>
    556574      <Position5>
    557575        <Filename Value="../UMicroThreading.pas"/>
    558         <Caret Line="824" Column="1" TopLine="807"/>
     576        <Caret Line="615" Column="1" TopLine="599"/>
    559577      </Position5>
    560578      <Position6>
    561579        <Filename Value="../UMicroThreading.pas"/>
    562         <Caret Line="955" Column="1" TopLine="940"/>
     580        <Caret Line="614" Column="1" TopLine="599"/>
    563581      </Position6>
    564582      <Position7>
    565         <Filename Value="UMainForm.pas"/>
    566         <Caret Line="262" Column="1" TopLine="247"/>
     583        <Filename Value="../UMicroThreading.pas"/>
     584        <Caret Line="615" Column="1" TopLine="599"/>
    567585      </Position7>
    568586      <Position8>
    569         <Filename Value="UMainForm.pas"/>
    570         <Caret Line="261" Column="1" TopLine="247"/>
     587        <Filename Value="../UMicroThreading.pas"/>
     588        <Caret Line="614" Column="1" TopLine="599"/>
    571589      </Position8>
    572590      <Position9>
    573591        <Filename Value="../UMicroThreading.pas"/>
    574         <Caret Line="816" Column="1" TopLine="801"/>
     592        <Caret Line="615" Column="1" TopLine="599"/>
    575593      </Position9>
    576594      <Position10>
    577595        <Filename Value="../UMicroThreading.pas"/>
    578         <Caret Line="777" Column="1" TopLine="756"/>
     596        <Caret Line="616" Column="1" TopLine="599"/>
    579597      </Position10>
    580598      <Position11>
    581599        <Filename Value="../UMicroThreading.pas"/>
    582         <Caret Line="760" Column="1" TopLine="754"/>
     600        <Caret Line="618" Column="1" TopLine="599"/>
    583601      </Position11>
    584602      <Position12>
    585603        <Filename Value="../UMicroThreading.pas"/>
    586         <Caret Line="762" Column="1" TopLine="754"/>
     604        <Caret Line="620" Column="1" TopLine="599"/>
    587605      </Position12>
    588606      <Position13>
    589607        <Filename Value="../UMicroThreading.pas"/>
    590         <Caret Line="763" Column="1" TopLine="754"/>
     608        <Caret Line="325" Column="3" TopLine="321"/>
    591609      </Position13>
    592610      <Position14>
    593611        <Filename Value="../UMicroThreading.pas"/>
    594         <Caret Line="764" Column="1" TopLine="754"/>
     612        <Caret Line="321" Column="69" TopLine="319"/>
    595613      </Position14>
    596614      <Position15>
    597615        <Filename Value="../UMicroThreading.pas"/>
    598         <Caret Line="768" Column="2" TopLine="754"/>
     616        <Caret Line="326" Column="1" TopLine="319"/>
    599617      </Position15>
    600618      <Position16>
    601619        <Filename Value="../UMicroThreading.pas"/>
    602         <Caret Line="767" Column="1" TopLine="754"/>
     620        <Caret Line="327" Column="1" TopLine="319"/>
    603621      </Position16>
    604622      <Position17>
    605623        <Filename Value="../UMicroThreading.pas"/>
    606         <Caret Line="768" Column="1" TopLine="754"/>
     624        <Caret Line="411" Column="22" TopLine="403"/>
    607625      </Position17>
    608626      <Position18>
    609627        <Filename Value="../UMicroThreading.pas"/>
    610         <Caret Line="769" Column="1" TopLine="754"/>
     628        <Caret Line="863" Column="10" TopLine="841"/>
    611629      </Position18>
    612630      <Position19>
    613631        <Filename Value="../UMicroThreading.pas"/>
    614         <Caret Line="768" Column="1" TopLine="754"/>
     632        <Caret Line="861" Column="1" TopLine="841"/>
    615633      </Position19>
    616634      <Position20>
    617635        <Filename Value="../UMicroThreading.pas"/>
    618         <Caret Line="770" Column="22" TopLine="754"/>
     636        <Caret Line="862" Column="1" TopLine="841"/>
    619637      </Position20>
    620638      <Position21>
    621639        <Filename Value="../UMicroThreading.pas"/>
    622         <Caret Line="760" Column="1" TopLine="754"/>
     640        <Caret Line="863" Column="1" TopLine="841"/>
    623641      </Position21>
    624642      <Position22>
    625643        <Filename Value="../UMicroThreading.pas"/>
    626         <Caret Line="762" Column="1" TopLine="754"/>
     644        <Caret Line="861" Column="1" TopLine="841"/>
    627645      </Position22>
    628646      <Position23>
    629647        <Filename Value="../UMicroThreading.pas"/>
    630         <Caret Line="767" Column="1" TopLine="754"/>
     648        <Caret Line="843" Column="33" TopLine="841"/>
    631649      </Position23>
    632650      <Position24>
    633651        <Filename Value="../UMicroThreading.pas"/>
    634         <Caret Line="768" Column="1" TopLine="754"/>
     652        <Caret Line="325" Column="5" TopLine="319"/>
    635653      </Position24>
    636654      <Position25>
    637655        <Filename Value="../UMicroThreading.pas"/>
    638         <Caret Line="770" Column="1" TopLine="754"/>
     656        <Caret Line="326" Column="1" TopLine="319"/>
    639657      </Position25>
    640658      <Position26>
    641659        <Filename Value="../UMicroThreading.pas"/>
    642         <Caret Line="772" Column="1" TopLine="754"/>
     660        <Caret Line="327" Column="1" TopLine="319"/>
    643661      </Position26>
    644662      <Position27>
    645663        <Filename Value="../UMicroThreading.pas"/>
    646         <Caret Line="776" Column="1" TopLine="754"/>
     664        <Caret Line="328" Column="1" TopLine="319"/>
    647665      </Position27>
    648666      <Position28>
    649667        <Filename Value="../UMicroThreading.pas"/>
    650         <Caret Line="777" Column="1" TopLine="754"/>
     668        <Caret Line="329" Column="1" TopLine="319"/>
    651669      </Position28>
    652670      <Position29>
    653671        <Filename Value="../UMicroThreading.pas"/>
    654         <Caret Line="778" Column="1" TopLine="754"/>
     672        <Caret Line="328" Column="1" TopLine="319"/>
    655673      </Position29>
    656674      <Position30>
    657675        <Filename Value="../UMicroThreading.pas"/>
    658         <Caret Line="782" Column="1" TopLine="782"/>
     676        <Caret Line="329" Column="1" TopLine="319"/>
    659677      </Position30>
    660678    </JumpHistory>
    … …  
    696714  </CompilerOptions>
    697715  <Debugging>
     716    <BreakPoints Count="2">
     717      <Item1>
     718        <Source Value="../UMicroThreading.pas"/>
     719        <Line Value="869"/>
     720      </Item1>
     721      <Item2>
     722        <Source Value="../UMicroThreading.pas"/>
     723        <Line Value="325"/>
     724      </Item2>
     725    </BreakPoints>
    698726    <Watches Count="2">
    699727      <Item1>
Note: See TracChangeset for help on using the changeset viewer.