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

* longint -> Integer would not compile.

Browse Source
This commit is contained in:
carl 1999-04-25 02:29:23 +00:00
parent 23c364f842
commit 417eb205d6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/graph/clip.inc
View File

@ -25,14 +25,14 @@ const
function LineClipped(var x1, y1,x2,y2: longint; xmin, ymin,
xmax, ymax:longint): boolean;
function LineClipped(var x1, y1,x2,y2: integer; xmin, ymin,
xmax, ymax:integer): boolean;
{********************************************************}
{ Function LineClipped() }
{--------------------------------------------------------}
{ This routine clips the line coordinates to the }
{ min. and max. values of the window. Returns TRUE if }
{ there was clipping performed on the line. Updated }
{ the ENTIRE line was clipped. Updated }
{ clipped line endpoints are also returned. }
{ This algorithm is the classic Cohen-Sutherland line }
{ clipping algorithm. }
@ -41,10 +41,10 @@ const
code1, code2: longint;
done:boolean;
code: longint;
newx,newy: longint;
newx,newy: integer;
function outcode(x,y:longint): longint;
function outcode(x,y:integer): longint;
{********************************************************}
{ Function OutCode() }
{--------------------------------------------------------}
@ -137,7 +137,7 @@ const
end
end;
end;
LineClipped:=TRUE;
LineClipped:=FALSE;
end;