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

* FPC_USE_LIBC fixes to fpgetenv. No more appending of '=', and making a proper nullterminated string)

Browse Source
This commit is contained in:
marco 2004-01-01 14:07:55 +00:00
parent be0397b1d1
commit 4d915e960d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/unix/genfuncs.inc
View File

@ -108,13 +108,20 @@ Function fpgetenv(name:string):Pchar; [public, alias : 'FPC_SYSC_FPGETENV'];
} }
Begin Begin
{$ifndef FPC_USE_LIBC}
name:=name+'='; {Else HOST will also find HOSTNAME, etc} name:=name+'='; {Else HOST will also find HOSTNAME, etc}
{$else}
name:=name+#0;
{$endif}
fpgetenv:=fpgetenv(@name[1]); fpgetenv:=fpgetenv(@name[1]);
end; end;
{ {
$Log$ $Log$
Revision 1.3 2003-12-30 12:24:01 marco Revision 1.4 2004-01-01 14:07:55 marco
* FPC_USE_LIBC fixes to fpgetenv. No more appending of '=', and making a proper nullterminated string)
Revision 1.3 2003/12/30 12:24:01 marco
* FPC_USE_LIBC * FPC_USE_LIBC
Revision 1.2 2003/09/14 20:15:01 marco Revision 1.2 2003/09/14 20:15:01 marco