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

m68k: reenabled some safety checks and removed obsolete TODO comment

Browse Source 
git-svn-id: trunk@36604 -
This commit is contained in:
Károly Balogh 2017-06-26 19:45:11 +00:00
parent d5e1b391f9
commit 8a8753eb79
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/cgcpu.pas
View File

@ -343,11 +343,11 @@ unit cgcpu;
begin
if not assigned(paraloc) then
exit;
{ TODO: FIX ME!!! this also triggers location bug }
{if (paraloc^.loc<>LOC_REFERENCE) or
if (paraloc^.loc<>LOC_REFERENCE) or
(paraloc^.reference.index<>NR_STACK_POINTER_REG) or
(tcgsize2size[paraloc^.size]>sizeof(tcgint)) then
internalerror(200501162);}
internalerror(200501162);
{ Pushes are needed in reverse order, add the size of the
current location to the offset where to load from. This