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

* Add ifdef internal_backtrace

Browse Source 
git-svn-id: trunk@3518 -
This commit is contained in:
daniel 2006-05-14 08:49:34 +00:00
parent 4d37c919cc
commit 6f1e0eff45
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/i386/i386.inc
View File

@ -975,7 +975,7 @@ function fpc_pchar_length(p:pchar):longint;assembler;[public,alias:'FPC_PCHAR_LE
{$include strlen.inc} {$include strlen.inc}
{$endif FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH} {$endif FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
{$IFNDEF INTERNAL_BACKTRACE}
{$define FPC_SYSTEM_HAS_GET_FRAME} {$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif} function get_frame:pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm asm
@ -1007,7 +1007,7 @@ asm
movl (%eax),%eax movl (%eax),%eax
.Lgnf_null: .Lgnf_null:
end ['EAX']; end ['EAX'];
{$ENDIF}
{**************************************************************************** {****************************************************************************
Math Math