pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Initialize "Result" to avoid garbage due to optimization

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2584 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2012-10-29 19:15:58 +00:00
parent c7ae5633d7
commit b934d63e9b
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
wst/trunk/date_utils.pas
View File

@ -751,6 +751,7 @@ function xsd_DurationToStr(const AValue : TDurationRec) : string;
var var
strTime, strDate : string; strTime, strDate : string;
begin begin
Result := '';
if ( AValue.FractionalSecond > 0 ) then begin if ( AValue.FractionalSecond > 0 ) then begin
strTime := IntToStr(AValue.Second) + '.' + IntToStr(AValue.FractionalSecond) + 'S'; strTime := IntToStr(AValue.Second) + '.' + IntToStr(AValue.FractionalSecond) + 'S';
end else begin end else begin