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

* bugfix of set_in_byte, long must be used at start, same is true for

Browse Source 
another routine
This commit is contained in:
carl 1998-06-17 13:59:08 +00:00
parent 90b33c20e2
commit 0acb09468b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/m68k/set.inc
View File

@ -34,7 +34,7 @@
procedure do_set;assembler; procedure do_set;assembler;
asm asm
XDEF SET_SET_BYTE XDEF SET_SET_BYTE
move.b d0,d6 move.l d0,d6
{ correct long position: } { correct long position: }
{ -> (value div 32)*4 = longint } { -> (value div 32)*4 = longint }
{ (value shr 5)*shl 2 } { (value shr 5)*shl 2 }
@ -69,7 +69,7 @@
{ (D0) } { (D0) }
asm asm
XDEF SET_IN_BYTE XDEF SET_IN_BYTE
move.b d0,d6 move.l d0,d6
{ correct long position: } { correct long position: }
{ -> (value div 32)*4 = longint } { -> (value div 32)*4 = longint }
{ (value shr 5)*shl 2 } { (value shr 5)*shl 2 }
@ -427,7 +427,11 @@
{ {
$Log$ $Log$
Revision 1.3 1998-06-05 12:32:07 carl Revision 1.4 1998-06-17 13:59:08 carl
* bugfix of set_in_byte, long must be used at start, same is true for
another routine
Revision 1.3 1998/06/05 12:32:07 carl
* calculating sets is COMPLETELY different from the intel in * calculating sets is COMPLETELY different from the intel in
determining the bit number determining the bit number
* new passing parameters conventions * new passing parameters conventions