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

* set_sub_sets bugfix, was not using correct operation

Browse Source
This commit is contained in:
carl 1998-07-30 12:16:29 +00:00
parent 38ec73449d
commit f86a9ccb28
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/m68k/set.inc
View File

@ -13,16 +13,11 @@
**********************************************************************} **********************************************************************}
{*************************************************************************} {*************************************************************************}
{ set.inc }
{ Converted by Carl Eric Codere } { Converted by Carl Eric Codere }
{*************************************************************************} {*************************************************************************}
{ This inc. implements low-level set operations for the motorola } { This inc. implements low-level set operations for the motorola }
{ 68000 familiy of processors. } { 68000 familiy of processors. }
{*************************************************************************}
{ Based on original code bt Florian Kl„mpfl for the 80x86. } { Based on original code bt Florian Kl„mpfl for the 80x86. }
{ }
{ 22nd november 1997 }
{ * bugfix of btst with long sizes. (CEC) }
{*************************************************************************} {*************************************************************************}
@ -230,16 +225,16 @@
move.l #32,d6 move.l #32,d6
@LSUBSETS1: @LSUBSETS1:
move.b (a0)+,d0 move.b (a0)+,d0
not.b d0 move.b (a1)+,d1
and.b (a1)+,d0 not.b d1
and.b d1,d0
move.b d0,(a2)+ move.b d0,(a2)+
sub.b #1,d6 sub.b #1,d6
bne @LSUBSETS1 bne @LSUBSETS1
{ restore register } { restore register }
move.l a2,(sp)+ move.l a2,(sp)+
end ['d0','d6','a0','a1']; end ['d0','d1','d6','a0','a1'];
end; end;
{ compare both sets } { compare both sets }
@ -427,7 +422,10 @@
{ {
$Log$ $Log$
Revision 1.5 1998-07-01 14:27:13 carl Revision 1.6 1998-07-30 12:16:29 carl
* set_sub_sets bugfix, was not using correct operation
Revision 1.5 1998/07/01 14:27:13 carl
* set_set and set_in bugfix * set_set and set_in bugfix
Revision 1.2 1998/03/27 23:47:35 carl Revision 1.2 1998/03/27 23:47:35 carl