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

Morphos: Fixed compilation after r44709

Browse Source 
git-svn-id: trunk@44711 -
This commit is contained in:
marcus 2020-04-12 20:47:35 +00:00
parent 3f579c10a4
commit 8b95fb8377
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/amicommon/dos.pp
View File

@ -1082,7 +1082,9 @@ Var
begin
SetLength(EnvList, 0);
// pr_LocalVars are introduced with OS2.0
{$ifdef AMIGA68k}
if PLibrary(AOS_ExecBase)^.lib_Version >= 36 then
{$endif}
begin
ThisProcess := PProcess(FindTask(nil)); //Get the pointer to our process
LocalVars_List := @(ThisProcess^.pr_LocalVars); //get the list of pr_LocalVars as pointer