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

* fix Florian's last commit for m68k compilation

Browse Source
This commit is contained in:
carl 2002-08-14 19:25:09 +00:00
parent ecb32b0ef0
commit b117e6ad01
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgutil.pas
View File

@ -1222,7 +1222,8 @@ implementation
hp:=tparaitem(procinfo^.procdef.para.first);
while assigned(hp) do
begin
if (hp.paraloc.loc in [LOC_REGISTER,LOC_FPUREGISTER,LOC_MMREGISTER]) and (([vo_regable,vo_fpuregable]*tvarsym(hp.parasym).varoptions)=[]) then
if (hp.paraloc.loc in [LOC_REGISTER,LOC_FPUREGISTER
{$ifdef SUPPORT_MMX},LOC_MMREGISTER{$endif}]) and (([vo_regable,vo_fpuregable]*tvarsym(hp.parasym).varoptions)=[]) then
begin
case hp.paraloc.loc of
LOC_REGISTER:
@ -1730,7 +1731,10 @@ implementation
end.
{
$Log$
Revision 1.35 2002-08-13 21:40:56 florian
Revision 1.36 2002-08-14 19:25:09 carl
* fix Florian's last commit for m68k compilation
Revision 1.35 2002/08/13 21:40:56 florian
* more fixes for ppc calling conventions
Revision 1.34 2002/08/12 15:08:39 carl