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

* the reference counter offset depends only on the current rtl, not the compiler version, so no ifdef needed

Browse Source 
git-svn-id: trunk@22038 -
This commit is contained in:
florian 2012-08-08 18:59:19 +00:00
parent fb7f25f410
commit 2fc350eabd
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/arm/arm.inc
View File

@ -534,11 +534,7 @@ asm
ldmfd sp!, {r0, lr} ldmfd sp!, {r0, lr}
// We currently can not use constant symbols in ARM-Assembly // We currently can not use constant symbols in ARM-Assembly
// but we need to stay backward compatible with 2.6 // but we need to stay backward compatible with 2.6
{$if defined(VER2_6)} sub r0, r0, #12
sub r0, r0, #8 //AnsiFirstOff in 2.6
{$else}
sub r0, r0, #12 //AnsiFirstOff in 2.7 with codepage support
{$endif}
// Jump without a link, so freemem directly returns to our caller // Jump without a link, so freemem directly returns to our caller
b FPC_FREEMEM_X b FPC_FREEMEM_X
end; end;