equal
deleted
inserted
replaced
1 "{ Package: 'jv:libgdbs' }" |
1 "{ Package: 'jv:libgdbs' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#GDBTransientDataHolder |
5 Object subclass:#GDBTransientDataHolder |
4 instanceVariableNames:'debugger factory value seqno' |
6 instanceVariableNames:'debugger factory value seqno' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
7 category:'GDB-Private' |
9 category:'GDB-Private' |
8 ! |
10 ! |
|
11 |
9 |
12 |
10 !GDBTransientDataHolder class methodsFor:'instance creation'! |
13 !GDBTransientDataHolder class methodsFor:'instance creation'! |
11 |
14 |
12 debugger: aGDBDebugger factory: aBlock |
15 debugger: aGDBDebugger factory: aBlock |
13 ^ self new setDebugger: aGDBDebugger factory: aBlock |
16 ^ self new setDebugger: aGDBDebugger factory: aBlock |
19 |
22 |
20 value |
23 value |
21 (value notNil and:[debugger currentInferiorStateSequnceNumber == seqno]) ifTrue:[ |
24 (value notNil and:[debugger currentInferiorStateSequnceNumber == seqno]) ifTrue:[ |
22 ^ value. |
25 ^ value. |
23 ]. |
26 ]. |
|
27 seqno := debugger currentInferiorStateSequnceNumber. |
24 value := factory value. |
28 value := factory value. |
25 ^ value |
29 ^ value |
26 |
30 |
27 "Created: / 17-09-2014 / 22:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
31 "Created: / 17-09-2014 / 22:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
32 "Modified: / 10-03-2015 / 00:18:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
28 ! ! |
33 ! ! |
29 |
34 |
30 !GDBTransientDataHolder methodsFor:'initialization'! |
35 !GDBTransientDataHolder methodsFor:'initialization'! |
31 |
36 |
32 setDebugger: aGDBDebugger factory: aBlock |
37 setDebugger: aGDBDebugger factory: aBlock |
34 factory := aBlock. |
39 factory := aBlock. |
35 |
40 |
36 "Created: / 17-09-2014 / 22:08:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
41 "Created: / 17-09-2014 / 22:08:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
37 ! ! |
42 ! ! |
38 |
43 |
|
44 !GDBTransientDataHolder class methodsFor:'documentation'! |
|
45 |
|
46 version_HG |
|
47 |
|
48 ^ '$Changeset: <not expanded> $' |
|
49 ! ! |
|
50 |