mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21:28:14 +02:00
nostackframe
This commit is contained in:
parent
37ad2c42ef
commit
8c3829e698
@ -57,7 +57,7 @@ function log2(x : float) : float;assembler;nostackframe;
|
||||
|
||||
{$define FPC_MATH_HAS_SINCOS}
|
||||
{$ifdef FPC_HAS_TYPE_EXTENDED}
|
||||
procedure sincos(theta : extended;out sinus,cosinus : extended);assembler;
|
||||
procedure sincos(theta : extended;out sinus,cosinus : extended);assembler;nostackframe;
|
||||
asm
|
||||
fldt theta
|
||||
fsincos
|
||||
@ -102,7 +102,7 @@ procedure sincos(theta : single;out sinus,cosinus : single);assembler;
|
||||
|
||||
{$define FPC_MATH_HAS_DIVMOD}
|
||||
{$asmmode intel}
|
||||
procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);assembler;
|
||||
procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: Word);assembler;nostackframe;
|
||||
asm
|
||||
{$ifdef WIN64}
|
||||
mov eax, ecx
|
||||
@ -123,7 +123,7 @@ asm
|
||||
end;
|
||||
|
||||
|
||||
procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: SmallInt);assembler;
|
||||
procedure DivMod(Dividend: Integer; Divisor: Word; var Result, Remainder: SmallInt);assembler;nostackframe;
|
||||
asm
|
||||
{$ifdef WIN64}
|
||||
mov eax, ecx
|
||||
@ -144,7 +144,7 @@ asm
|
||||
end;
|
||||
|
||||
|
||||
procedure DivMod(Dividend: DWord; Divisor: DWord; var Result, Remainder: DWord);assembler;
|
||||
procedure DivMod(Dividend: DWord; Divisor: DWord; var Result, Remainder: DWord);assembler;nostackframe;
|
||||
asm
|
||||
{$ifdef WIN64}
|
||||
mov eax, ecx
|
||||
@ -164,7 +164,7 @@ asm
|
||||
end;
|
||||
|
||||
|
||||
procedure DivMod(Dividend: Integer; Divisor: Integer; var Result, Remainder: Integer);assembler;
|
||||
procedure DivMod(Dividend: Integer; Divisor: Integer; var Result, Remainder: Integer);assembler;nostackframe;
|
||||
asm
|
||||
{$ifdef WIN64}
|
||||
mov eax, ecx
|
||||
|
Loading…
Reference in New Issue
Block a user