paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 15:50:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Move for MIPS is broken, commented out for now

Browse Source 
git-svn-id: trunk@21123 -
This commit is contained in:
florian 2012-04-29 21:31:46 +00:00
parent 31f54a7810
commit 2c5a2857e5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/mips/mips.inc
View File

@ -81,9 +81,9 @@ function Sptr:Pointer;assembler;nostackframe;
move $2,$sp move $2,$sp
end; end;
{$ifdef USE_MIPS_STK2_ASM} {$ifdef USE_MIPS_STK2_ASM}
{$ifndef FPC_SYSTEM_HAS_MOVE} {$ifndef FPC_SYSTEM_HAS_MOVE}
{
{$define FPC_SYSTEM_HAS_MOVE} {$define FPC_SYSTEM_HAS_MOVE}
procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler; procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler;
asm asm
@ -286,8 +286,8 @@ procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];
lw $14,-40($23) lw $14,-40($23)
end; end;
}
{$endif FPC_SYSTEM_HAS_MOVE} {$endif FPC_SYSTEM_HAS_MOVE}
{**************************************************************************** {****************************************************************************
Integer math Integer math
****************************************************************************} ****************************************************************************}