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

* remaining assembler writer bugs fixed, the errors in the

Browse Source 
system unit are inline assembler problems
This commit is contained in:
florian 2002-08-18 10:42:37 +00:00
parent c853f24a86
commit a375ad9565
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgutil.pas
View File

@ -1221,8 +1221,8 @@ implementation
hp:=tparaitem(procinfo.procdef.para.first);
while assigned(hp) do
begin
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
if (hp.paraloc.loc in [LOC_REGISTER,LOC_FPUREGISTER,LOC_MMREGISTER]) and
(([vo_regable,vo_fpuregable]*tvarsym(hp.parasym).varoptions)=[]) then
begin
case hp.paraloc.loc of
LOC_REGISTER:
@ -1730,7 +1730,11 @@ implementation
end.
{
$Log$
Revision 1.39 2002-08-17 09:23:36 florian
Revision 1.40 2002-08-18 10:42:37 florian
* remaining assembler writer bugs fixed, the errors in the
system unit are inline assembler problems
Revision 1.39 2002/08/17 09:23:36 florian
* first part of procinfo rewrite
Revision 1.38 2002/08/16 14:24:57 carl

7
compiler/powerpc/cpupara.pas
View File

@ -185,6 +185,7 @@ unit cpupara;
end;
LOC_REFERENCE:
begin
hp.paraloc.size:=OS_32;
if push_addr_param(hp.paratype.def) or (hp.paratyp in [vs_var,vs_out]) then
begin
if nextintreg<=R_8 then
@ -226,7 +227,11 @@ begin
end.
{
$Log$
Revision 1.7 2002-08-17 22:09:47 florian
Revision 1.8 2002-08-18 10:42:38 florian
* remaining assembler writer bugs fixed, the errors in the
system unit are inline assembler problems
Revision 1.7 2002/08/17 22:09:47 florian
* result type handling in tcgcal.pass_2 overhauled
* better tnode.dowrite
* some ppc stuff fixed