paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +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 }
{*************************************************************************}
{ This inc. implements low-level set operations for the motorola }
{ 68000 familiy of processors. }
{*************************************************************************}
{ 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
@LSUBSETS1:
move.b (a0)+,d0
not.b d0
and.b (a1)+,d0
move.b (a1)+,d1
not.b d1
and.b d1,d0
move.b d0,(a2)+
sub.b #1,d6
bne @LSUBSETS1
{ restore register }
move.l a2,(sp)+
end ['d0','d6','a0','a1'];
end ['d0','d1','d6','a0','a1'];
end;
{ compare both sets }
@ -427,7 +422,10 @@
{
$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
Revision 1.2 1998/03/27 23:47:35 carl