paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 03:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid warning at compilation

Browse Source 
git-svn-id: trunk@15894 -
This commit is contained in:
pierre 2010-08-24 14:57:01 +00:00
parent 6f17f34fee
commit 56a35214ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/bsd/bunxsysc.inc
View File

@ -94,7 +94,7 @@ Begin
it.it_value.tv_sec:=seconds;
it.it_value.tv_usec:=0;
If SetITimer(ITIMER_REAL,it,oitv)<0 Then
Exit(-1);
Exit(cuint(-1));
if oitv.it_value.tv_usec<>0 Then
Inc(oitv.it_value.tv_sec);