[fpc-devel]GetEnvironmentVariable problem

[Sergey Korshunoff]

Hi!
Try to execute
	GetEnvironmentVariable('NON_EXISTING_ONE');
I got a SIGSEGV....

Suggestion to resolve a problem:
    replace a current impementation of StrPas in objpas/syspch.inc
     with a one like in Kylix

StrPas(Str: PChar): ShortString;
begin
  Result:=Str;
end;

Current implementation do not check result of GetEnv (it can be a nil),
and StrLen can not handle nil args too.

Regards,
	Sergey Korshunoff