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

* FillChar and FillObject bugfix, count was compared with byte

Browse Source
This commit is contained in:
carl 1998-10-17 14:34:37 +00:00
parent 68376ac427
commit a166bd1bca
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/m68k/m68k.inc
View File

@ -59,7 +59,7 @@
move.b d0,(a0)+ move.b d0,(a0)+
@LMEMSET2: @LMEMSET2:
subq.l #1,d1 subq.l #1,d1
cmp.b #-1,d1 cmp.l #-1,d1
bne @LMEMSET1 bne @LMEMSET1
bra @LMEMSET5 { finished slow mode , exit } bra @LMEMSET5 { finished slow mode , exit }
@ -85,7 +85,7 @@
move.b d0,(a0)+ move.b d0,(a0)+
@LMEMSET2: @LMEMSET2:
subq.l #1,d1 subq.l #1,d1
cmp.b #-1,d1 cmp.l #-1,d1
bne @LMEMSET1 bne @LMEMSET1
bra @LMEMSET5 { finished slow mode , exit } bra @LMEMSET5 { finished slow mode , exit }
@ -688,7 +688,10 @@ end;
{ {
$Log$ $Log$
Revision 1.14 1998-10-16 13:37:45 pierre Revision 1.15 1998-10-17 14:34:37 carl
* FillChar and FillObject bugfix, count was compared with byte
Revision 1.14 1998/10/16 13:37:45 pierre
* added code for vmt_offset in destructors * added code for vmt_offset in destructors
Revision 1.13 1998/10/15 11:35:03 pierre Revision 1.13 1998/10/15 11:35:03 pierre