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

* Suppress Comaprison might be always false if first_mm_imreg is zero

Browse Source 
git-svn-id: trunk@19584 -
This commit is contained in:
pierre 2011-11-03 10:13:26 +00:00
parent 97559ea92a
commit b6de7f0d6b
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgcal.pas
View File

@ -273,6 +273,10 @@ implementation
TCGCALLNODE
*****************************************************************************}
{$if first_mm_imreg = 0}
{$WARN 4044 OFF} { Comparison might be always false ... }
{$endif}
procedure tcgcallnode.extra_interrupt_code;
begin
end;

3
compiler/ncgutil.pas
View File

@ -190,6 +190,9 @@ implementation
{*****************************************************************************
Misc Helpers
*****************************************************************************}
{$if first_mm_imreg = 0}
{$WARN 4044 OFF} { Comparison might be always false ... }
{$endif}
procedure location_free(list: TAsmList; const location : TLocation);
begin

5
compiler/paramgr.pas
View File

@ -238,6 +238,9 @@ implementation
result:=[];
end;
{$if first_mm_imreg = 0}
{$WARN 4044 OFF} { Comparison might be always false ... }
{$endif}
procedure tparamanager.allocparaloc(list: TAsmList; const paraloc: pcgparalocation);
begin
@ -435,7 +438,7 @@ implementation
p.init_paraloc_info(callbothsides);
result:=p.calleeargareasize;
end;
function tparamanager.parseparaloc(parasym: tparavarsym; const s: string): boolean;
begin