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

* strcopy bugfix

Browse Source 
* co bugfix with stack
This commit is contained in:
carl 1998-05-25 12:18:48 +00:00
parent fd85bca7b3
commit 57dbf2308a
1 changed files with 11 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/m68k/m68k.inc
View File

@ -285,13 +285,14 @@
asm
XDEF CHECK_OBJECT
{ save important registers }
movem.l a0/d0,-(sp)
move.l a0/d0,-(sp)
{ check if pointer is nil.... before trying to access it }
move.l 8(sp),a0
{ check if pointer is nil.... before trying to access it }
{ offset is 12 contrary to i386 because we save two registers }
move.l 12(sp),a0
{ z flag set by move }
beq @co_re
beq @co_re
move.l (a0),d0
add.l 4(a0),d0
bne @co_re
@ -412,7 +413,7 @@
move.l 8(a6),d1 { Get length }
move.b (a0)+,d0 { Get source length }
cmp.b d1,d0
cmp.b d0,d1
ble @LM4
move.b d1,d0 { If longer than maximum size of target, cut
source length }
@ -435,7 +436,7 @@
asm
move.b #255,d0
move.l s1,a0
move.l s1,a1
move.l s2,a1
sub.b (a0),d0 { copyl:= 255 -length(s1) }
move.b (a1),d6
cmp.b d0,d6 { if copyl > length(s2) then }
@ -721,23 +722,11 @@ XDEF RE_BOUNDS_CHECK
@reboundend:
end;
Function Random(l : Longint) : Longint
{
the problem Wwth this Function is if l is maxLongint*3/4 then the
probability to obtain a number in the range maxlongint*1/4 to maxlongint*1/2
is two times smaller than the probability for other numbers !
}
Begin
Randseed:=Randseed*134775813+1;
Random:=abs(Randseed mod l);
End;
{
$Log$
Revision 1.3 1998-04-08 07:53:32 michael
+ Changed Random() function. Moved from system to processor dependent files (from Pedro Gimeno)
Revision 1.4 1998-05-25 12:18:48 carl
* strcopy bugfix
* co bugfix with stack
Revision 1.2 1998/03/27 23:48:06 carl
* bugfix of STRCONCAT alignment problem