X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fshared%2Fenvvars.pas;h=32d3273c3714dc7c7d0b2d9c52c4726e03f8d3e8;hp=55d58702b4487b0cf2d85de10921d0b42b877dab;hb=be2f0e35ae7b7688559621e4b8cb2d9a75a43d23;hpb=ed750d2e31615702f9c230ef4aabe890ea55abab

diff --git a/src/shared/envvars.pas b/src/shared/envvars.pas
index 55d5870..32d3273 100644
--- a/src/shared/envvars.pas
+++ b/src/shared/envvars.pas
@@ -33,7 +33,7 @@ implementation
     utils;
 
 
-{$IFDEF WINDOWS}
+{$IF DEFINED(WINDOWS)}
 function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint;
 begin
   if (SetEnvironmentVariable(VarStr, VarVal)) then
@@ -41,18 +41,12 @@ begin
   else
     Result := -1;
 end;
+{$ELSEIF DEFINED(GO32V2)}
+  {$LINKLIB c}
+  function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint; cdecl; external;
 {$ELSE}
-  {$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}
+  {$LINKLIB c}
+  function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint; cdecl; external 'c' name 'setenv';
 {$ENDIF}
 
 function SetEnvVar(const VarName: AnsiString; const VarVal: AnsiString): Boolean;