paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-13 21:10:17 +01: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 { bug if $f9/$f19
tmpfpu_len := length(tmpfpu); tmpfpu_len := length(tmpfpu);
tmpfpu[tmpfpu_len] := succ(tmpfpu[tmpfpu_len]); tmpfpu[tmpfpu_len] := succ(tmpfpu[tmpfpu_len]);
} }
r := taicpu(hp).oper[0]^.reg; r := taicpu(hp).oper[0]^.reg;
setsupreg(r, getsupreg(r) + 1); 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]^) + ')'; 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); owner.AsmWriteLn(s);
{ {
tmpfpu_len := length(tmpfpu); tmpfpu_len := length(tmpfpu);
tmpfpu[tmpfpu_len] := succ(tmpfpu[tmpfpu_len]); tmpfpu[tmpfpu_len] := succ(tmpfpu[tmpfpu_len]);
} }
@ -290,7 +290,7 @@ unit cpugas;
comment: '# '; comment: '# ';
dollarsign: '$'; dollarsign: '$';
); );
as_MIPS_as_info: tasminfo = as_MIPSEB_as_info: tasminfo =
( (
id: as_gas; id: as_gas;
idtxt: 'AS'; idtxt: 'AS';