Browse Source

* fix test after changes to TStartRoutine in pthreads

git-svn-id: trunk@16274 -
tom_at_work 14 years ago
parent
commit
d786f8a1b8
1 changed files with 2 additions and 2 deletions
  1. 2 2
      tests/test/packages/webtbs/tw14265.pp

+ 2 - 2
tests/test/packages/webtbs/tw14265.pp

@@ -13,11 +13,11 @@ const N = 2;
 var
   res:array[1..N] of Integer;
 
-function Hello(arg: pointer): longint; cdecl;
+function Hello(arg: pointer): pointer; cdecl;
 begin
 //  writeln('Hello from thread #', PInteger(arg)^);
   res[PInteger(arg)^] := PInteger(arg)^;
-  Hello := 0;
+  Hello := nil;
   pthread_exit(pointer(Hello));
 end;