diff --git a/src/shared/envvars.pas b/src/shared/envvars.pas
index 55d58702b4487b0cf2d85de10921d0b42b877dab..32d3273c3714dc7c7d0b2d9c52c4726e03f8d3e8 100644 (file)
--- a/src/shared/envvars.pas
+++ b/src/shared/envvars.pas
utils;
-{$IFDEF WINDOWS}
+{$IF DEFINED(WINDOWS)}
function setenv(const VarStr: PChar; const VarVal: PChar; Repl: cint): cint;
begin
if (SetEnvironmentVariable(VarStr, VarVal)) then
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;