Handle error response in read32At: and readAt:nBytes:

This addresses shingarov#1.
janvrany · Jun 30, 2023 · 8784429 · 8784429
1 parent d09c414
commit 8784429
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/GDB/RemoteGDB.class.st b/src/GDB/RemoteGDB.class.st
@@ -121,6 +121,10 @@ RemoteGDB >> read32At: addr [
 	answer := rsp q: 'm',
 		addr printStringHex,
 		',4'.
+	(answer size = 3 and:[answer first == $E]) ifTrue:[
+		self error:'Failed to read 4 bytes at 0x', addr printStringHex.
+		^nil.
+	].
 	answer := Integer readFrom: answer radix: 16.
 	processorDescription endian ifLittle: [ answer := answer byteSwap32 ].
 	^answer
@@ -133,6 +137,10 @@ RemoteGDB >> readAt: addr nBytes: n [
 		addr printStringHex,
 		',',
 		n printStringHex.
+	(answer size = 3 and:[answer first == $E]) ifTrue:[
+		self error:'Failed to read ',n printString,' bytes at 0x', addr printStringHex.
+		^nil.
+	].
 	stream := ReadStream on: answer
 		from: 1
 		to: answer size.