Merge branch 'master' into 1_fixes

* master:
  range issue doc switch
  sompler
  darwin
This commit is contained in:
Basile Burg 2015-06-17 23:59:05 +02:00
commit 969c7db913
2 changed files with 3 additions and 31 deletions

View File

@ -648,15 +648,9 @@ begin
DRIVE_REMOTE: aList.Add(ltr);
end;
end;
{$ENDIF}
{$IFDEF LINUX}
{$ELSE}
aList.Add('//');
{$ENDIF}
{$IFDEF DARWIN}
// tobe checked
// aList.Add('//');
raise Exception.Create('darwin: listDrives() has to be implemented');
{$ENDIF}
end;
function shellOpen(const aFilename: string): boolean;
@ -723,30 +717,7 @@ begin
if not (poUsePipes in aProcess.Options) then
exit;
//
sum := 0;
str := TMemoryStream.Create;
try
buffSz := aProcess.PipeBufferSize;
// temp fix: messages are cut if the TAsyncProcess version is used on simple TProcess.
if aProcess is TAsyncProcess then begin
while aProcess.Output.NumBytesAvailable <> 0 do begin
str.SetSize(sum + buffSz);
cnt := aProcess.Output.Read((str.Memory + sum)^, buffSz);
sum += cnt;
end;
end else begin
repeat
str.SetSize(sum + buffSz);
cnt := aProcess.Output.Read((str.Memory + sum)^, buffSz);
sum += cnt;
until
cnt = 0;
end;
str.Size := sum;
aList.LoadFromStream(str);
finally
str.Free;
end;
aList.LoadFromStream(aProcess.Output);
end;
procedure processOutputToStream(aProcess: TProcess; output: TMemoryStream);

View File

@ -564,6 +564,7 @@ begin
begin
LineTextChanged(nil, 0, Lines.Count);
Highlighter.ScanRanges;
Highlighter.ResetRange;
end;
identifierToD2Syn;
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);