fix windows building broken

This commit is contained in:
Basile Burg 2018-03-05 06:23:32 +01:00
parent c3a7574a8d
commit cbc5987b9a
1 changed files with 3 additions and 3 deletions

View File

@ -95,11 +95,11 @@ begin
end;
function prettyReturnStatus(proc: TProcess): string;
{$IFDEF UNIX}
var
s: integer;
{$IFDEF UNIX}
u: integer;
{$ENDIF}
{$ENDIF}
begin
result := '';
s := proc.ExitStatus;
@ -153,7 +153,7 @@ begin
end;
{$ENDIF}
if result = '' then
result := intToStr(s) + ' (indeterminate meaning)';
result := intToStr(s) + ' (undeterminated meaning)';
end;
constructor TCEProcess.create(aOwner: TComponent);