equal
deleted
inserted
replaced
1 " |
1 " |
2 jv:libgdbs - GNU Debugger Interface Library |
2 jv:libgdbs - GNU Debugger Interface Library |
3 Copyright (C) 2015-now Jan Vrany |
3 Copyright (C) 2015-now Jan Vrany |
|
4 Copyright (C) 2020 LabWare |
4 |
5 |
5 This library is free software; you can redistribute it and/or |
6 This library is free software; you can redistribute it and/or |
6 modify it under the terms of the GNU Lesser General Public |
7 modify it under the terms of the GNU Lesser General Public |
7 License as published by the Free Software Foundation; either |
8 License as published by the Free Software Foundation; either |
8 version 2.1 of the License. |
9 version 2.1 of the License. |
31 |
32 |
32 copyright |
33 copyright |
33 " |
34 " |
34 jv:libgdbs - GNU Debugger Interface Library |
35 jv:libgdbs - GNU Debugger Interface Library |
35 Copyright (C) 2015-now Jan Vrany |
36 Copyright (C) 2015-now Jan Vrany |
|
37 Copyright (C) 2020 LabWare |
36 |
38 |
37 This library is free software; you can redistribute it and/or |
39 This library is free software; you can redistribute it and/or |
38 modify it under the terms of the GNU Lesser General Public |
40 modify it under the terms of the GNU Lesser General Public |
39 License as published by the Free Software Foundation; either |
41 License as published by the Free Software Foundation; either |
40 version 2.1 of the License. |
42 version 2.1 of the License. |
198 argv := (self command2argv: command) , |
200 argv := (self command2argv: command) , |
199 ((Array new: 5) |
201 ((Array new: 5) |
200 at: 1 put: '-q'; |
202 at: 1 put: '-q'; |
201 at: 2 put: '--interpreter'; |
203 at: 2 put: '--interpreter'; |
202 at: 3 put: 'mi'; |
204 at: 3 put: 'mi'; |
203 at: 4 put: '-ex'; |
205 at: 4 put: '-iex'; |
204 at: 5 put: 'set new-console on'; |
206 at: 5 put: 'set new-console on'; |
205 yourself). |
207 yourself). |
206 |
208 |
207 inputPipe := NonPositionableExternalStream makePipe. |
209 inputPipe := NonPositionableExternalStream makePipe. |
208 input := inputPipe second. |
210 input := inputPipe second. |
250 ]. |
252 ]. |
251 |
253 |
252 "Created: / 12-12-2018 / 20:13:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
254 "Created: / 12-12-2018 / 20:13:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
253 "Modified: / 11-06-2019 / 11:45:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
255 "Modified: / 11-06-2019 / 11:45:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
254 "Modified (comment): / 25-06-2019 / 21:10:02 / jv" |
256 "Modified (comment): / 25-06-2019 / 21:10:02 / jv" |
|
257 "Modified: / 19-10-2020 / 11:12:24 / Jan Vrany <jan.vrany@labware.com>" |
255 ! |
258 ! |
256 |
259 |
257 release |
260 release |
258 pid := connection := nil. |
261 pid := connection := nil. |
259 debuggerInput notNil ifTrue:[ debuggerInput close ]. |
262 debuggerInput notNil ifTrue:[ debuggerInput close ]. |