mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 23:39:31 +02:00
* dec/inclocked got defines
This commit is contained in:
parent
aa81ac3921
commit
83571f3c6d
@ -921,6 +921,7 @@ end ['R3'];
|
||||
|
||||
{ do a thread save inc/dec }
|
||||
|
||||
{$define FPC_SYSTEM_HAS_DECLOCKED}
|
||||
function declocked(var l : longint) : boolean;assembler;
|
||||
{ input: address of l in r3 }
|
||||
{ output: boolean indicating whether l is zero after decrementing }
|
||||
@ -934,6 +935,7 @@ LDecLockedLoop:
|
||||
srwi r3,r3,5
|
||||
end ['R3','R10'];
|
||||
|
||||
{$define FPC_SYSTEM_HAS_INCLOCKED}
|
||||
procedure inclocked(var l : longint);assembler;
|
||||
asm
|
||||
LIncLockedLoop:
|
||||
@ -946,7 +948,10 @@ end ['R3','R10'];
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.27 2002-11-07 15:23:13 jonas
|
||||
Revision 1.28 2003-01-09 13:38:56 florian
|
||||
* dec/inclocked got defines
|
||||
|
||||
Revision 1.27 2002/11/07 15:23:13 jonas
|
||||
* always use code that was between 'ifdef mt', since that define is
|
||||
deprecated now
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user