GDBWindowsProcess.st
changeset 149 0db2ccc6da7b
parent 138 5d6ef1b8f539
--- 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