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

* handle empty environment correctly when initializing argv0 under msdos.

Browse Source 
Patch by Max Nazhalov, mantis #28705.

git-svn-id: trunk@32028 -
This commit is contained in:
nickysn 2015-10-12 17:59:51 +00:00
parent f107956169
commit 20e5b3e586
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/msdos/system.pp
View File

@ -202,6 +202,8 @@ begin
dos_env_count := env_count; dos_env_count := env_count;
if dos_version >= $300 then if dos_version >= $300 then
begin begin
if cp=dos_env then
inc(cp);
inc(cp, 3); inc(cp, 3);
dos_argv0 := cp; dos_argv0 := cp;
end end