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

* Fix mips compiler compilation failure

Browse Source 
git-svn-id: trunk@21620 -
This commit is contained in:
pierre 2012-06-15 14:26:51 +00:00
parent f79aff553e
commit 46d98a1f4e
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/mips/cpugas.pas
View File

@ -236,7 +236,7 @@ unit cpugas;
{ bug if $f9/$f19
tmpfpu_len := length(tmpfpu);
tmpfpu[tmpfpu_len] := succ(tmpfpu[tmpfpu_len]);
}
r := taicpu(hp).oper[0]^.reg;
setsupreg(r, getsupreg(r) + 1);
@ -250,7 +250,7 @@ unit cpugas;
s := #9 + gas_op2str[A_SWC1] + #9 + tmpfpu + ',' + getopstr(taicpu(hp).oper[1]^); //+ ',' + getopstr(taicpu(hp).oper[2]^) + '(' + getopstr(taicpu(hp).oper[1]^) + ')';
owner.AsmWriteLn(s);
{
{
tmpfpu_len := length(tmpfpu);
tmpfpu[tmpfpu_len] := succ(tmpfpu[tmpfpu_len]);
}
@ -290,7 +290,7 @@ unit cpugas;
comment: '# ';
dollarsign: '$';
);
as_MIPS_as_info: tasminfo =
as_MIPSEB_as_info: tasminfo =
(
id: as_gas;
idtxt: 'AS';