Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 35 → Rev 36

/trunk/RunPHP.pas
28,6 → 28,9
 
implementation
 
uses
CRC32;
 
procedure TRunCodeExplorer.Execute;
 
function ProcessRunning(PI: TProcessInformation): boolean; inline;
127,7 → 130,7
{$REGION 'Notify main thread about output'}
if Assigned(FOutputNotifyCallback) and not Self.Terminated and ProcessRunning(PI) then
begin
FOutputWaiting := result;
FOutputWaiting := IntToHex(CalculateCRC32String(result), 8) + result;
Synchronize(CallOutputNotifyCallback);
end;
{$ENDREGION}