GDBFrame.st
changeset 256 9e2ac3a4f23c
parent 251 e34f610942df
child 259 651864c2aa29
--- a/GDBFrame.st	Wed Jan 26 16:06:07 2022 +0000
+++ b/GDBFrame.st	Tue Feb 22 12:21:22 2022 +0000
@@ -1,7 +1,7 @@
 "
 jv:libgdbs - GNU Debugger Interface Library
 Copyright (C) 2015-now Jan Vrany
-Copyright (C) 2021 LabWare
+Copyright (C) 2021-2022 LabWare
 
 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
@@ -35,7 +35,7 @@
 "
 jv:libgdbs - GNU Debugger Interface Library
 Copyright (C) 2015-now Jan Vrany
-Copyright (C) 2021 LabWare
+Copyright (C) 2021-2022 LabWare
 
 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
@@ -352,7 +352,13 @@
 
     super printOn: aStream.
     aStream nextPutAll:'('.
-    level printOn:aStream base: 10 size: 2 fill: Character space.
+    "/ In rare occations, level may be nil, for example if frame object 
+    "/ comes from stopped event. sigh...
+    level isNil ifTrue: [
+        aStream nextPutAll: ' ?'
+    ] ifFalse: [  
+        level printOn:aStream base: 10 size: 2 fill: Character space.
+    ].
     aStream nextPutAll:' '.
     addr printOn:aStream.
     aStream nextPutAll:' '.
@@ -364,6 +370,7 @@
     aStream nextPutAll:')'.
 
     "Modified: / 27-02-2015 / 15:21:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-02-2022 / 11:24:30 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !GDBFrame methodsFor:'private'!