X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fshared%2Fenvvars.pas;h=55d58702b4487b0cf2d85de10921d0b42b877dab;hp=5c60fd0d7c1adefe3508ebaf7f5d3cc948512820;hb=b5698c71200b362d162a9afb6bf467d877dc6b09;hpb=3d2ad22a4edfeab661196c15d6b57fa3b3eca216

diff --git a/src/shared/envvars.pas b/src/shared/envvars.pas
index 5c60fd0..55d5870 100644
--- a/src/shared/envvars.pas
+++ b/src/shared/envvars.pas
@@ -42,10 +42,17 @@ begin
     Result := -1;
 end;
 {$ELSE}
-{$LINKLIB c}
-const clib = 'c';
-function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint;
-cdecl; external clib name 'setenv';
+  {$IFDEF GO32V2}
+    function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint;
+    begin
+      {$WARNING setenv stub!}
+      result := 0
+    end;
+  {$ELSE}
+    {$LINKLIB c}
+    const clib = 'c';
+    function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint; cdecl; external clib name 'setenv';
+  {$ENDIF}
 {$ENDIF}
 
 function SetEnvVar(const VarName: AnsiString; const VarVal: AnsiString): Boolean;