paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 17:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

nostackframe

Browse Source
This commit is contained in:
Alligator-1 2024-08-26 16:27:31 +05:00 committed by Michael Van Canneyt
parent 37ad2c42ef
commit 8c3829e698
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/x86_64/mathu.inc
View File

@ -57,7 +57,7 @@ function log2(x : float) : float;assembler;nostackframe;
{$define FPC_MATH_HAS_SINCOS} {$define FPC_MATH_HAS_SINCOS}
{$ifdef FPC_HAS_TYPE_EXTENDED} {$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 asm
fldt theta fldt theta
fsincos fsincos
@ -102,7 +102,7 @@ procedure sincos(theta : single;out sinus,cosinus : single);assembler;
{$define FPC_MATH_HAS_DIVMOD} {$define FPC_MATH_HAS_DIVMOD}
{$asmmode intel} {$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 asm
{$ifdef WIN64} {$ifdef WIN64}
mov eax, ecx mov eax, ecx
@ -123,7 +123,7 @@ asm
end; 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 asm
{$ifdef WIN64} {$ifdef WIN64}
mov eax, ecx mov eax, ecx
@ -144,7 +144,7 @@ asm
end; 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 asm
{$ifdef WIN64} {$ifdef WIN64}
mov eax, ecx mov eax, ecx
@ -164,7 +164,7 @@ asm
end; 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 asm
{$ifdef WIN64} {$ifdef WIN64}
mov eax, ecx mov eax, ecx