paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +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 begin
if not assigned(paraloc) then if not assigned(paraloc) then
exit; 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 (paraloc^.reference.index<>NR_STACK_POINTER_REG) or
(tcgsize2size[paraloc^.size]>sizeof(tcgint)) then (tcgsize2size[paraloc^.size]>sizeof(tcgint)) then
internalerror(200501162);} internalerror(200501162);
{ Pushes are needed in reverse order, add the size of the { Pushes are needed in reverse order, add the size of the
current location to the offset where to load from. This current location to the offset where to load from. This