paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 17:09:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* small v1_0 fix

Browse Source
This commit is contained in:
marco 2003-09-20 14:51:42 +00:00
parent 60a7f85960
commit 5241d352b1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/freebsd/thread.inc
View File

@ -171,7 +171,7 @@ begin
Thread.DoTerminate; Thread.DoTerminate;
if FreeThread then if FreeThread then
Thread.Free; Thread.Free;
fpExit(Result); {$ifdef ver1_0}ExitProcess{$else}fpExit{$endif}(Result);
end; end;
@ -253,7 +253,7 @@ begin
Linux.Setpriority Linux.Setpriority
{$else} {$else}
Unix.fpSetPriority Unix.fpSetPriority
{$endif} (Prio_Process,FHandle, Priorities[Value]); {$endif} (Prio_Process,FHandle, Priorities[Value]);
end; end;
@ -316,7 +316,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 2003-09-20 12:38:29 marco Revision 1.11 2003-09-20 14:51:42 marco
* small v1_0 fix
Revision 1.10 2003/09/20 12:38:29 marco
* FCL now compiles for FreeBSD with new 1.1. Now Linux. * FCL now compiles for FreeBSD with new 1.1. Now Linux.
Revision 1.9 2003/01/17 19:01:07 marco Revision 1.9 2003/01/17 19:01:07 marco