--- a/GDBWindowsProcess.st Wed Oct 03 13:00:25 2018 +0100
+++ b/GDBWindowsProcess.st Wed Oct 03 22:23:19 2018 +0100
@@ -115,7 +115,13 @@
!GDBWindowsProcess methodsFor:'initialization & release'!
initialize
- | inputPipe input outputPipe output errorPipe error args |
+ | exe inputPipe input outputPipe output errorPipe error args |
+
+ exe := self class gdbExecutable.
+ (exe isNil or:[ exe asFilename isExecutable not ]) ifTrue:[
+ GDBError raiseErrorString: 'Could not find gdb, please set path to gdb using GDBProcess class >> gdbExecutable:'.
+ ^ self.
+ ].
inputPipe := NonPositionableExternalStream makePipe.
input := inputPipe second.
@@ -125,7 +131,7 @@
error := outputPipe first.
args := (Array new: 7)
- at: 1 put: self class gdbExecutable ? (ExternalAddress pointerSize == 8 ifTrue:['C:\msys64\mingw64\bin\gdb.exe'] ifFalse:['C:\msys64\mingw32\bin\gdb.exe']) ;
+ at: 1 put: exe;
at: 2 put: '-q';
at: 3 put: '-nx';
at: 4 put: '--interpreter';
@@ -166,7 +172,7 @@
"Created: / 12-12-2017 / 21:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 15-01-2018 / 09:35:03 / jv"
- "Modified: / 03-09-2018 / 09:23:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 03-10-2018 / 22:22:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
release