Subversion Repositories fastphp

Compare Revisions

Regard whitespace Rev 36 → Rev 35

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