Преглед изворни кода

* Fixed compilation on Linux after r15557

git-svn-id: trunk@15560 -
joost пре 15 година
родитељ
комит
3e165e2dcf
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      rtl/linux/pthread.inc

+ 1 - 1
rtl/linux/pthread.inc

@@ -107,7 +107,7 @@ Type
 *)
 
      __start_routine_t = function (_para1:pointer):pointer;cdecl;
-     __destr_function_t = procedure (_para1:pointer);
+     __destr_function_t = procedure (_para1:pointer);cdecl;
 {     t_pthread_cleanup_push_routine = procedure (_para1:pointer);
      t_pthread_cleanup_push_defer_routine = procedure (_para1:pointer);}