mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 09:06:02 +02:00
* fixed range check error (reported by Vladimir Ravodin)
This commit is contained in:
parent
34ef6cd933
commit
f174fb5fb1
@ -40,9 +40,9 @@ const
|
|||||||
{--------------------------------------------------------}
|
{--------------------------------------------------------}
|
||||||
var
|
var
|
||||||
code1, code2: longint;
|
code1, code2: longint;
|
||||||
done:boolean;
|
|
||||||
code: longint;
|
code: longint;
|
||||||
newx,newy: word;
|
newx,newy: smallint;
|
||||||
|
done:boolean;
|
||||||
|
|
||||||
|
|
||||||
function outcode(x,y:smallint): longint;
|
function outcode(x,y:smallint): longint;
|
||||||
@ -142,7 +142,10 @@ end;
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.2 2000-07-13 11:33:46 michael
|
Revision 1.3 2001-05-06 17:15:26 jonas
|
||||||
|
* fixed range check error (reported by Vladimir Ravodin)
|
||||||
|
|
||||||
|
Revision 1.2 2000/07/13 11:33:46 michael
|
||||||
+ removed logs
|
+ removed logs
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user