Browse Source

* return errors from unimplemented functions instead of random values

git-svn-id: trunk@14002 -
Jonas Maebe 15 years ago
parent
commit
c2190ebd30
1 changed files with 4 additions and 0 deletions
  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
        http://java.sun.com/j2se/1.4.2/docs/guide/misc/threadPrimitiveDeprecation.html
     }
     }
 //      result := pthread_kill(threadHandle,SIGSTOP);
 //      result := pthread_kill(threadHandle,SIGSTOP);
+      result:=dword(-1);
     end;
     end;
 
 
 
 
   function  CResumeThread  (threadHandle : TThreadID) : dword;
   function  CResumeThread  (threadHandle : TThreadID) : dword;
     begin
     begin
 //      result := pthread_kill(threadHandle,SIGCONT);
 //      result := pthread_kill(threadHandle,SIGCONT);
+      result:=dword(-1);
     end;
     end;
 
 
 
 
@@ -367,12 +369,14 @@ Type  PINTRTLEvent = ^TINTRTLEvent;
     function  CThreadSetPriority (threadHandle : TThreadID; Prio: longint): boolean; {-15..+15, 0=normal}
     function  CThreadSetPriority (threadHandle : TThreadID; Prio: longint): boolean; {-15..+15, 0=normal}
     begin
     begin
       {$Warning ThreadSetPriority needs to be implemented}
       {$Warning ThreadSetPriority needs to be implemented}
+      result:=false;
     end;
     end;
 
 
 
 
   function  CThreadGetPriority (threadHandle : TThreadID): Integer;
   function  CThreadGetPriority (threadHandle : TThreadID): Integer;
     begin
     begin
       {$Warning ThreadGetPriority needs to be implemented}
       {$Warning ThreadGetPriority needs to be implemented}
+      result:=0;
     end;
     end;