GDBBreakpoint.st
changeset 177 e7bd05df3d6b
parent 120 73877848ea7f
child 184 d70c70c3e495
equal deleted inserted replaced
176:e734c17e7c37 177:e7bd05df3d6b
   289     script := anArray asStringWith: Character cr.
   289     script := anArray asStringWith: Character cr.
   290 
   290 
   291     "Created: / 11-07-2017 / 14:11:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   291     "Created: / 11-07-2017 / 14:11:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   292 !
   292 !
   293 
   293 
   294 updateFrom: aGDBBreakpoint
   294 updateFromIgnoredInstvarNames
   295     | ignored |
   295     ^ super updateFromIgnoredInstvarNames , #(locations)
   296 
   296 
   297     self assert: number = aGDBBreakpoint number.
   297     "Created: / 25-02-2019 / 16:25:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   298     ignored := self class instVarIndexFor: #locations.  
       
   299     self class superclass instSize + 1 to: self class instSize do:[:i | 
       
   300         i ~~ ignored ifTrue:[
       
   301             self instVarAt: i put: (aGDBBreakpoint instVarAt: i).
       
   302         ].
       
   303     ].
       
   304     properties := aGDBBreakpoint properties.
       
   305 
       
   306     "Created: / 06-07-2017 / 16:30:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   307     "Modified: / 15-01-2018 / 23:12:02 / jv"
       
   308     "Modified: / 18-05-2018 / 21:44:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   309 ! !
   298 ! !
   310 
   299 
   311 !GDBBreakpoint methodsFor:'testing'!
   300 !GDBBreakpoint methodsFor:'testing'!
   312 
   301 
   313 isEnabled
   302 isEnabled