Mercurial Mercurial > hg > stx-libtool / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DebugView.st
changeset 787 dab2fdc4a811
parent 786 429c3146c03d
child 788 26d452e40e52
equal deleted inserted replaced
786:429c3146c03d 787:dab2fdc4a811 
  1261     inBlock := false.
 
  1261     inBlock := false.
 
  1262 
  1262 
  1263     "/
 
  1263     "/
 
  1264     "/ is this for a send or a step/next ?
 
  1264     "/ is this for a send or a step/next ?
 
  1265     "/
 
  1265     "/
 
  1266     bigStep ifTrue:[
 
  1266     (bigStep 
       
  1267     and:[steppedContext notNil]) ifTrue:[
 
  1267         "
 
  1268         "
 
  1268          a step or next - ignore all contexts below the interesting one
 
  1269          a step or next - ignore all contexts below the interesting one
 
  1269         "
 
  1270         "
 
  1270         where := here.      "the interrupted context"
 
  1271         where := here.      "the interrupted context"
 
  1271         contextBelow := nil.
 
  1272         contextBelow := nil.
 
  1330                             ObjectMemory flushInlineCaches.
 
  1331                             ObjectMemory flushInlineCaches.
 
  1331                             (contextBelow notNil 
  1332                             (contextBelow notNil 
  1332                             and:[inBlock not]) ifTrue:[
 
  1333                             and:[inBlock not]) ifTrue:[
 
  1333 "/ 'prepare for unwind-catch' printNL.
 
  1334 "/ 'prepare for unwind-catch' printNL.
 
  1334 "/ 'con= ' print. contextBelow printCR.
 
  1335 "/ 'con= ' print. contextBelow printCR.
 
       
  1336                                 contextBelow selector notNil ifTrue:[
 
       
  1337                                     self label:'single stepping - please wait ...(' , contextBelow selector , ')'.
 
       
  1338                                 ].
 
       
  1339 
  1335                                 DebuggingDebugger == true ifTrue:[
 
  1340                                 DebuggingDebugger == true ifTrue:[
 
  1336                                     'below stepCon; continue until unwind of: ' print.
 
  1341                                     'below stepCon; continue until unwind of: ' print.
 
  1337                                     contextBelow printCR.
 
  1342                                     contextBelow printCR.
 
  1338                                 ].
 
  1343                                 ].
 
  1339                                 Processor activeProcess forceInterruptOnReturnOf:contextBelow.
 
  1344                                 Processor activeProcess forceInterruptOnReturnOf:contextBelow.
 
  1340                                 StepInterruptPending := nil.
 
  1345                                 StepInterruptPending := nil.
 
  1341                             ] ifFalse:[
 
  1346                             ] ifFalse:[
 
       
  1347                                 here selector notNil ifTrue:[
 
       
  1348                                     self label:'single stepping - please wait ...(' , here selector , ')'.
 
       
  1349                                 ].
 
       
  1350 
  1342                                 DebuggingDebugger == true ifTrue:[
 
  1351                                 DebuggingDebugger == true ifTrue:[
 
  1343                                     'below stepCon; continue single stepping' printCR.
 
  1352                                     'in stepCon; continue single stepping' printCR.
 
  1344                                 ].
 
  1353                                 ].
 
  1345                                 StepInterruptPending := 1.
 
  1354                                 StepInterruptPending := 1.
 
  1346                                 InterruptPending := 1.
 
  1355                                 InterruptPending := 1.
 
  1347                             ].
 
  1356                             ].
 
  1348                             InStepInterrupt := nil.
 
  1357                             InStepInterrupt := nil.
 
  1415         ignore := true
 
  1424         ignore := true
 
  1416     ].
 
  1425     ].
 
  1417 
  1426 
  1418     (left not 
  1427     (left not 
  1419     and:[skipLineNr notNil 
  1428     and:[skipLineNr notNil 
  1420     and:[where lineNumber < skipLineNr]]) ifTrue:[
 
  1429     and:[where notNil
 
       
  1430     and:[where lineNumber < skipLineNr]]]) ifTrue:[
 
  1421         DebuggingDebugger == true ifTrue:[
 
  1431         DebuggingDebugger == true ifTrue:[
 
  1422             'skip (' print. skipLineNr print. ' unreached - ignored' printNL.
 
  1432             'skip (' print. skipLineNr print. ' unreached - ignored' printNL.
 
  1423         ].
 
  1433         ].
 
  1424         ignore := true
 
  1434         ignore := true
 
  1425     ].
 
  1435     ].
 
  1461     where := nil. here := nil.
 
  1471     where := nil. here := nil.
 
  1462 "/'enter' printCR.
 
  1472 "/'enter' printCR.
 
  1463     self enter:thisContext sender sender
 
  1473     self enter:thisContext sender sender
 
  1464 
  1474 
  1465     "Created: 14.10.1996 / 12:53:39 / cg"
 
  1475     "Created: 14.10.1996 / 12:53:39 / cg"
 
  1466     "Modified: 21.10.1996 / 18:26:08 / cg"
 
  1476     "Modified: 22.10.1996 / 11:31:44 / cg"
 
  1467 ! !
 
  1477 ! !
 
  1468 
  1478 
  1469 !DebugView methodsFor:'menu / button actions'!
 
  1479 !DebugView methodsFor:'menu / button actions'!
 
  1470 
  1480 
  1471 autoUpdateOff
 
  1481 autoUpdateOff
 
  2878 ! !
 
  2888 ! !
 
  2879 
  2889 
  2880 !DebugView class methodsFor:'documentation'!
 
  2890 !DebugView class methodsFor:'documentation'!
 
  2881 
  2891 
  2882 version
 
  2892 version
 
  2883     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.107 1996-10-21 17:26:56 cg Exp $'
 
  2893     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.108 1996-10-22 10:41:16 cg Exp $'
 
  2884 ! !
 
  2894 ! !
hg/stx-libtool