paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid cutting of HOME variable to 255 characters when compiled with $H+ (sysutils)

Browse Source 
git-svn-id: trunk@3727 -
This commit is contained in:
Tomas Hajny 2006-05-28 21:40:01 +00:00
parent a9b515c0bf
commit 53103216ef
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/fexpand.inc
View File

@ -161,11 +161,15 @@ begin
if (Length (Pa) >= 1) and (Pa [1] = '~') and
((Pa [2] = DirectorySeparator) or (Length (Pa) = 1)) then
begin
{$IFDEF FPC_FEXPAND_GETENV_PCHAR}
{$IFOPT H-}
{$IFDEF FPC_FEXPAND_GETENV_PCHAR}
S := StrPas (GetEnv ('HOME'));
{$ELSE FPC_FEXPAND_GETENV_PCHAR}
{$ELSE FPC_FEXPAND_GETENV_PCHAR}
{$ENDIF H-}
S := GetEnv ('HOME');
{$ENDIF FPC_FEXPAND_GETENV_PCHAR}
{$IFOPT H-}
{$ENDIF FPC_FEXPAND_GETENV_PCHAR}
{$ENDIF H-}
if (S = '') or (Length (S) = 1)
and (S [1] = DirectorySeparator) then
Delete (Pa, 1, 1)