paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add {$IFNDEF INTERNAL_BACKTRACE}

Browse Source 
git-svn-id: trunk@3525 -
This commit is contained in:
daniel 2006-05-14 13:12:23 +00:00
parent 3048a98a6f
commit ebec34c224
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/x86_64/x86_64.inc
View File

@ -35,7 +35,7 @@ asm
movq %rsp,%rax movq %rsp,%rax
end ['RAX']; end ['RAX'];
{$IFNDEF INTERNAL_BACKTRACE}
{$define FPC_SYSTEM_HAS_GET_FRAME} {$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm asm
@ -75,7 +75,7 @@ asm
{$endif win64} {$endif win64}
.Lg_a_null: .Lg_a_null:
end ['RAX']; end ['RAX'];
{$ENDIF}
(* (*
{$define FPC_SYSTEM_HAS_MOVE} {$define FPC_SYSTEM_HAS_MOVE}
procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler; procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler;