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

codetools: clean up, fixed typo

Browse Source 
git-svn-id: trunk@44007 -
This commit is contained in:
mattias 2014-02-11 20:48:54 +00:00
parent 9b1e474917
commit 532192cab4
2 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/definetemplates.pas
View File

@ -679,7 +679,7 @@ type
TFPCTargetConfigCaches = class;
{ TFPCTargetConfigCache
Storing all information (maros, search paths) of one compiler
Storing all information (macros, search paths) of one compiler
with one specific TargetOS and TargetCPU. }
TFPCTargetConfigCache = class(TComponent)
@ -7535,8 +7535,8 @@ function TFPCTargetConfigCache.FindRealCompilerInPath(aTargetCPU: string;
function Search(const ShortFileName: string): string;
begin
// fpc.exe first searches in -XP
// Maybe: extact -XP from extra options
// fpc.exe first searches in -Xp
// Maybe: extract -Xp from extra options
// then fpc.exe searches in its own directory
if Compiler<>'' then begin

9
components/codetools/fileprocs.pas
View File

@ -26,14 +26,7 @@
}
unit FileProcs;
{$ifdef FPC}
{$mode objfpc}
{$else}
// delphi? if so then Windows is not defined but instead MSWindows is defined => define Windows in this case
{$ifdef MSWindows}
{$define Windows}
{$endif}
{$endif}{$H+}
{$mode objfpc}{$H+}
interface