paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 18:17:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDbg: Placed some Windows-specific code between ifdef's to fix compilation on non-Windows systems.

Browse Source 
git-svn-id: trunk@44438 -
This commit is contained in:
joost 2014-03-16 10:35:38 +00:00
parent 6974915b8b
commit 618ce88805
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/app/fpd/fpdcommand.pas
View File

@ -438,7 +438,7 @@ begin
WriteLN('No filename set');
Exit;
end;
{$ifdef windows}
hFile := CreateFile(PChar(GFileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_RANDOM_ACCESS, 0);
if hFile = INVALID_HANDLE_VALUE
then begin
@ -463,6 +463,7 @@ begin
CloseHandle(hMap);
CloseHandle(hFile);
end;
{$endif windows}
end;
procedure HandleShowCallStack(AParams: String);