paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 19:21:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: fixed compilation with wince.

Browse Source 
git-svn-id: trunk@35259 -
This commit is contained in:
vincents 2012-02-09 08:34:34 +00:00
parent 403ef1bfd2
commit 951fdc2310
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazlogger.pas
View File

@ -687,7 +687,7 @@ begin
{$ifdef WinCE} {$ifdef WinCE}
Assign(FLogText, FLogName); Assign(FLogText, FLogName);
{$I-} {$I-}
Append(FLogText) Append(FLogText);
if IOResult <> 0 then if IOResult <> 0 then
Rewrite(FLogText); Rewrite(FLogText);
{$I+} {$I+}