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

Allow compilation of compiler with -gc option

Browse Source 
git-svn-id: trunk@34524 -
This commit is contained in:
pierre 2016-09-13 08:47:53 +00:00
parent 53af10dbed
commit c7d79acd61
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/rgobj.pas
View File

@ -714,7 +714,12 @@ unit rgobj;
if movelist=nil then if movelist=nil then
begin begin
{ don't use sizeof(tmovelistheader), because that ignores alignment } { don't use sizeof(tmovelistheader), because that ignores alignment }
{$push}
{ avoid RTE 204 if checkpointer is enabled with -gc }
{$checkpointer off}
{$note This is a problem in checkpointer support, as the address is taken here, no check should be done}
getmem(movelist,ptruint(@movelist^.data)-ptruint(movelist)+60*sizeof(pointer)); getmem(movelist,ptruint(@movelist^.data)-ptruint(movelist)+60*sizeof(pointer));
{$pop}
movelist^.header.maxcount:=60; movelist^.header.maxcount:=60;
movelist^.header.count:=0; movelist^.header.count:=0;
movelist^.header.sorted_until:=0; movelist^.header.sorted_until:=0;