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

* bugfix of FLAGS as return values for SET_IN_BYTE and SET_SET_BYTE

Browse Source
This commit is contained in:
carl 1998-03-27 23:47:35 +00:00
parent ff6ca07f9f
commit 1988f09fb0
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/m68k/set.inc
View File

@ -42,10 +42,12 @@
btst.l d6,d0 { otherwise btst will be a byte }
{ put result in carry flag } { operation. }
bne @LDOSET1
andi.b #$fe,ccr { clear carry flag }
clr.b d0
{ andi.b #$fe,ccr } { clear carry flag }
bra @LDOSET2
@LDOSET1:
ori.b #$01,ccr { set carry flag }
move.b #1,d0
{ ori.b #$01,ccr } { set carry flag }
@LDOSET2:
end ['d0','a0','d6'];
end;
@ -55,6 +57,7 @@
procedure do_in(p : pointer;b : byte);[public,alias: 'SET_IN_BYTE'];
{ Returns Carry set then = in set , otherwise carry is cleared }
{ (D0) }
begin
asm
move.l 8(a6),a0
@ -70,10 +73,14 @@
btst.l d6,d0 { otherwise btst will be a byte }
{ put result in carry flag } { operation. }
bne @LDOIN1
andi.b #$fe,ccr { clear carry flag }
clr.b d0
{ this does not work, because of how the stack is restored }
{ by the routine. }
{ andi.b #$fe,ccr } { clear carry flag }
bra @LDOIN2
@LDOIN1:
ori.b #$01,ccr { set carry flag }
move.b #1,d0
{ ori.b #$01,ccr } { set carry flag }
@LDOIN2:
end ['d0','a0','d6'];
end;
@ -363,8 +370,8 @@
{
$Log$
Revision 1.1 1998-03-25 11:18:44 root
Initial revision
Revision 1.2 1998-03-27 23:47:35 carl
* bugfix of FLAGS as return values for SET_IN_BYTE and SET_SET_BYTE
Revision 1.4 1998/01/26 12:01:42 michael
+ Added log at the end