diff --git a/src/shared/envvars.pas b/src/shared/envvars.pas
index 5c60fd0d7c1adefe3508ebaf7f5d3cc948512820..55d58702b4487b0cf2d85de10921d0b42b877dab 100644 (file)
--- a/src/shared/envvars.pas
+++ b/src/shared/envvars.pas
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;