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

* use smallint instead of integer

Browse Source
This commit is contained in:
peter 2004-03-23 22:36:31 +00:00
parent 1a0a8db391
commit d1069ce5a7
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/unix/graph16.inc
View File

@ -11,10 +11,10 @@ const
var var
VidMem: PByteArray; VidMem: PByteArray;
ScrWidth: Integer; ScrWidth: SmallInt;
procedure bytemove(var source, dest; count: Integer); procedure bytemove(var source, dest; count: SmallInt);
var var
s, d: PByte; s, d: PByte;
begin begin
@ -30,7 +30,7 @@ end;
procedure PutPixel16(X,Y : Integer; Pixel: Word); procedure PutPixel16(X,Y : SmallInt; Pixel: Word);
var var
offset: word; offset: word;
dummy: byte; dummy: byte;
@ -55,7 +55,7 @@ begin
end; end;
function GetPixel16(X,Y: Integer):word; function GetPixel16(X,Y: SmallInt):word;
var var
dummy, offset: Word; dummy, offset: Word;
shift: byte; shift: byte;
@ -76,7 +76,7 @@ begin
end; end;
procedure GetScanLine16(x1, x2, y: integer; var data); procedure GetScanLine16(x1, x2, y: SmallInt; var data);
var var
dummylong: longint; dummylong: longint;
Offset, count, count2, amount, index: word; Offset, count, count2, amount, index: word;
@ -203,7 +203,7 @@ begin
end; end;
procedure DirectPutPixel16(X,Y : Integer); procedure DirectPutPixel16(X,Y : SmallInt);
{ x,y -> must be in global coordinates. No clipping. } { x,y -> must be in global coordinates. No clipping. }
var var
color: word; color: word;
@ -243,9 +243,9 @@ begin
end; end;
procedure HLine16(x, x2, y: Integer); procedure HLine16(x, x2, y: SmallInt);
var var
xtmp: Integer; xtmp: SmallInt;
ScrOfs, HLength: Word; ScrOfs, HLength: Word;
LMask, RMask: Byte; LMask, RMask: Byte;
begin begin
@ -359,9 +359,9 @@ end;
procedure VLine16(x,y,y2: integer); procedure VLine16(x,y,y2: SmallInt);
var var
ytmp: integer; ytmp: SmallInt;
ScrOfs,i: longint; ScrOfs,i: longint;
BitMask: byte; BitMask: byte;
@ -428,7 +428,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2002-09-07 16:01:27 peter Revision 1.3 2004-03-23 22:36:31 peter
* use smallint instead of integer
Revision 1.2 2002/09/07 16:01:27 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }