mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:39:25 +02:00
256dc546ac
be used (TBD in a future commit) for optimizing x:=-x and x:=not x on CPUs that support performing these operations directly in memory (such as x86) git-svn-id: trunk@35749 -
22 lines
706 B
ObjectPascal
22 lines
706 B
ObjectPascal
unit unegnotassign;
|
|
|
|
interface
|
|
|
|
const
|
|
fpc_in_neg_assign_x = 94;
|
|
fpc_in_not_assign_x = 95;
|
|
|
|
procedure NegAssignByte(var X: Byte);[internproc:fpc_in_neg_assign_x];
|
|
procedure NegAssignWord(var X: Word);[internproc:fpc_in_neg_assign_x];
|
|
procedure NegAssignDWord(var X: DWord);[internproc:fpc_in_neg_assign_x];
|
|
procedure NegAssignQWord(var X: QWord);[internproc:fpc_in_neg_assign_x];
|
|
|
|
procedure NotAssignByte(var X: Byte);[internproc:fpc_in_not_assign_x];
|
|
procedure NotAssignWord(var X: Word);[internproc:fpc_in_not_assign_x];
|
|
procedure NotAssignDWord(var X: DWord);[internproc:fpc_in_not_assign_x];
|
|
procedure NotAssignQWord(var X: QWord);[internproc:fpc_in_not_assign_x];
|
|
|
|
implementation
|
|
|
|
end.
|