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

+ added "nop" after sc instruction, since normally in case of success,

Browse Source 
sc returns to the second instruction after itself
This commit is contained in:
Jonas Maebe 2002-09-10 21:32:14 +00:00
parent e714c54860
commit dc3961baff
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/linux/syscalls.inc
View File

@ -97,14 +97,14 @@ asm
lwz r4, 8(r4) lwz r4, 8(r4)
{ Go ! } { Go ! }
sc sc
nop
{ Put back the registers... } { Put back the registers... }
lwz r8, regs lwz r8, regs
stw r3, 0(r8) stw r3, 0(r8)
stw r3, 4(r8) stw r4, 4(r8)
stw r4, 8(r8) stw r5, 8(r8)
stw r5, 12(r8) stw r6, 12(r8)
stw r6, 16(r8) stw r7, 16(r8)
stw r7, 20(r8)
end; end;
{$endif powerpc} {$endif powerpc}
{$ifndef fpc_syscall_ok} {$ifndef fpc_syscall_ok}
@ -581,7 +581,11 @@ end;
{ {
$Log$ $Log$
Revision 1.13 2002-09-07 16:01:19 peter Revision 1.14 2002-09-10 21:32:14 jonas
+ added "nop" after sc instruction, since normally in case of success,
sc returns to the second instruction after itself
Revision 1.13 2002/09/07 16:01:19 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.12 2002/09/07 13:14:04 florian Revision 1.12 2002/09/07 13:14:04 florian