forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix possible AV in patchPlatform paths

This commit is contained in:
Basile Burg 2014-11-18 13:47:53 +01:00
parent 43c646aebb
commit a02a269a7b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_common.pas
View File

@ -474,6 +474,8 @@ function patchPlateformExt(const aFilename: string): string;
var
ext, newext: string;
begin
if aFilename = '' then exit(aFilename);
//
ext := extractFileExt(aFilename);
newext := '';
result := aFilename[1..length(aFilename)-length(ext)];
@ -754,13 +756,13 @@ begin
// 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.Size := sum + buffSz;
str.SetSize(sum + buffSz);
cnt := aProcess.Output.Read((str.Memory + sum)^, buffSz);
sum += cnt;
end;
end else begin
repeat
str.Size := sum + buffSz;
str.SetSize(sum + buffSz);
cnt := aProcess.Output.Read((str.Memory + sum)^, buffSz);
sum += cnt;
until