瀏覽代碼

* return errors from unimplemented functions instead of random values

git-svn-id: trunk@14002 -
Jonas Maebe 15 年之前
父節點
當前提交
c2190ebd30
共有 1 個文件被更改,包括 4 次插入0 次删除
  1. 4 0
      rtl/unix/cthreads.pp

+ 4 - 0
rtl/unix/cthreads.pp

@@ -328,12 +328,14 @@ Type  PINTRTLEvent = ^TINTRTLEvent;
        http://java.sun.com/j2se/1.4.2/docs/guide/misc/threadPrimitiveDeprecation.html
     }
 //      result := pthread_kill(threadHandle,SIGSTOP);
+      result:=dword(-1);
     end;
 
 
   function  CResumeThread  (threadHandle : TThreadID) : dword;
     begin
 //      result := pthread_kill(threadHandle,SIGCONT);
+      result:=dword(-1);
     end;
 
 
@@ -367,12 +369,14 @@ Type  PINTRTLEvent = ^TINTRTLEvent;
     function  CThreadSetPriority (threadHandle : TThreadID; Prio: longint): boolean; {-15..+15, 0=normal}
     begin
       {$Warning ThreadSetPriority needs to be implemented}
+      result:=false;
     end;
 
 
   function  CThreadGetPriority (threadHandle : TThreadID): Integer;
     begin
       {$Warning ThreadGetPriority needs to be implemented}
+      result:=0;
     end;