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

Keith: Fixed Win32 compilation problem.

Browse Source 
git-svn-id: trunk@1500 -
This commit is contained in:
lazarus 2002-03-11 09:43:45 +00:00
parent 81dc7d308e
commit 8752d483cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/definetemplates.pas
View File

@ -1568,7 +1568,7 @@ var
// template for a sub directory // template for a sub directory
{$ifdef win32} {$ifdef win32}
if CurPath='' then if CurPath='' then
SubPath:=ReadValue(DefTempl.Value,CurValue) SubPath:=ReadValue(DefTempl.Value,CurPath)
else else
SubPath:=CurPath+PathDelim+ReadValue(DefTempl.Value,CurPath); SubPath:=CurPath+PathDelim+ReadValue(DefTempl.Value,CurPath);
{$else} {$else}