paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 17:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debug: Set LANG env, to prevent localisation

Browse Source 
git-svn-id: trunk@42419 -
This commit is contained in:
martin 2013-08-18 09:41:22 +00:00
parent 9928c60091
commit 03f50d973c
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/debugger.pp
View File

@ -39,7 +39,7 @@ interface
uses
TypInfo, Classes, SysUtils, Laz2_XMLCfg, math, FileUtil, LazLoggerBase, LazClasses,
LCLProc, LazConfigStorage, IDEProcs, DebugUtils, maps;
LCLProc, LazConfigStorage, DebugUtils, maps;
type
// datatype pointing to data on the target
@ -6163,14 +6163,10 @@ begin
FExternalDebugger := AExternalDebugger;
list := TStringList.Create;
list.Sorted := True;
list.Duplicates := dupIgnore;
list.OnChange := @DebuggerEnvironmentChanged;
FDebuggerEnvironment := list;
list := TStringList.Create;
list.Sorted := True;
list.Duplicates := dupIgnore;
list.OnChange := @EnvironmentChanged;
FEnvironment := list;
FCurEnvironment := TStringList.Create;

8
debugger/gdbmidebugger.pp
View File

@ -39,8 +39,9 @@ unit GDBMIDebugger;
interface
uses
Classes, SysUtils, strutils, Controls, Math, Variants, LCLProc, LazClasses, LazLoggerBase, Dialogs,
DebugUtils, Debugger, FileUtil, CmdLineDebugger, GDBTypeInfo, Maps, LCLIntf, Forms,
Classes, SysUtils, strutils, Controls, Math, Variants, LCLProc, LazClasses, LazLoggerBase,
Dialogs, DebugUtils, Debugger, FileUtil, BaseIDEIntf, CmdLineDebugger, GDBTypeInfo, Maps,
LCLIntf, Forms,
{$IFdef MSWindows}
Windows,
{$ENDIF}
@ -7876,6 +7877,9 @@ begin
if Length(TGDBMIDebuggerPropertiesBase(GetProperties).Debugger_Startup_Options) > 0
then Options := Options + ' ' + TGDBMIDebuggerPropertiesBase(GetProperties).Debugger_Startup_Options;
DebuggerEnvironment := EnvironmentAsStringList;
DebuggerEnvironment.Values['LANG'] := 'C'; // try to prevent GDB from using localized messages
if CreateDebugProcess(Options)
then begin
if not ParseInitialization