Explorar o código

* Avoid warning at compilation

git-svn-id: trunk@15894 -
pierre %!s(int64=15) %!d(string=hai) anos
pai
achega
56a35214ad
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/bsd/bunxsysc.inc

+ 1 - 1
rtl/bsd/bunxsysc.inc

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