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

debugger: learn "pei-x86-64" file type

Browse Source 
git-svn-id: trunk@30219 -
This commit is contained in:
paul 2011-04-06 07:18:34 +00:00
parent 5a2b851dcd
commit b8276754f7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/gdbmidebugger.pp
View File

@ -2806,22 +2806,22 @@ function TGDBMIDebuggerCommandStartDebugging.DoExecute: Boolean;
case StringCase(AFileType, [ case StringCase(AFileType, [
'efi-app-ia32', 'elf32-i386', 'pei-i386', 'elf32-i386-freebsd', 'efi-app-ia32', 'elf32-i386', 'pei-i386', 'elf32-i386-freebsd',
'elf64-x86-64', 'elf64-x86-64', 'pei-x86-64',
'mach-o-be', 'mach-o-be',
'mach-o-le', 'mach-o-le',
'pei-arm-little', 'pei-arm-little',
'pei-arm-big' 'pei-arm-big'
], True, False) of ], True, False) of
0..3: TargetInfo^.TargetCPU := 'x86'; 0..3: TargetInfo^.TargetCPU := 'x86';
4: TargetInfo^.TargetCPU := 'x86_64'; //TODO: should we check, PtrSize must be 8, but what if not? 4..5: TargetInfo^.TargetCPU := 'x86_64'; //TODO: should we check, PtrSize must be 8, but what if not?
5: begin 6: begin
//mach-o-be //mach-o-be
TargetInfo^.TargetIsBE := True; TargetInfo^.TargetIsBE := True;
if FTheDebugger.FGDBCPU <> '' if FTheDebugger.FGDBCPU <> ''
then TargetInfo^.TargetCPU := FTheDebugger.FGDBCPU then TargetInfo^.TargetCPU := FTheDebugger.FGDBCPU
else TargetInfo^.TargetCPU := 'powerpc'; // guess else TargetInfo^.TargetCPU := 'powerpc'; // guess
end; end;
6: begin 7: begin
//mach-o-le //mach-o-le
if FoundPtrSize then begin if FoundPtrSize then begin
if FTheDebugger.FGDBPtrSize = TargetInfo^.TargetPtrSize if FTheDebugger.FGDBPtrSize = TargetInfo^.TargetPtrSize
@ -2839,10 +2839,10 @@ function TGDBMIDebuggerCommandStartDebugging.DoExecute: Boolean;
else TargetInfo^.TargetCPU := 'x86'; // guess else TargetInfo^.TargetCPU := 'x86'; // guess
end; end;
end; end;
7: begin 8: begin
TargetInfo^.TargetCPU := 'arm'; TargetInfo^.TargetCPU := 'arm';
end; end;
8: begin 9: begin
TargetInfo^.TargetIsBE := True; TargetInfo^.TargetIsBE := True;
TargetInfo^.TargetCPU := 'arm'; TargetInfo^.TargetCPU := 'arm';
end; end;