paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 07:19:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed unused var

Browse Source
This commit is contained in:
peter 2000-06-30 22:14:44 +00:00
parent 2e22b30f16
commit 60f4bd98bf
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/linux/graph.pp
View File

@ -219,8 +219,8 @@ Const
'G1600x1200x64K', 'G1600x1200x64K',
'G1600x1200x16M', 'G1600x1200x16M',
'G1600x1200x16M32'); 'G1600x1200x16M32');
var {var
PhysicalScreen: PGraphicsContext; PhysicalScreen: PGraphicsContext; }
{ vga functions } { vga functions }
Function vga_init: Longint; Cdecl; External; Function vga_init: Longint; Cdecl; External;
@ -315,7 +315,7 @@ begin
nrColors:=vga_getcolors; nrColors:=vga_getcolors;
if (nrColors=16) or (nrcolors=256) then if (nrColors=16) or (nrcolors=256) then
InitColors; InitColors;
end; end;
Function ClipCoords (Var X,Y : Integer) : Boolean; Function ClipCoords (Var X,Y : Integer) : Boolean;
@ -545,7 +545,7 @@ end;
HardwarePages := 0; HardwarePages := 0;
// necessary hooks ... // necessary hooks ...
if (MaxColor = 16) and if (MaxColor = 16) and
(LongInt(ModeInfo.Width) * LongInt(ModeInfo.Height) < 65536*4*2) then (LongInt(ModeInfo.Width) * LongInt(ModeInfo.Height) < 65536*4*2) then
begin begin
// Use optimized graphics routines for 4 bit EGA/VGA modes // Use optimized graphics routines for 4 bit EGA/VGA modes
ScrWidth := ModeInfo.Width div 8; ScrWidth := ModeInfo.Width div 8;
@ -572,7 +572,7 @@ end;
{ These are not really implemented yet: { These are not really implemented yet:
PutImage := @libvga_PutImageProc; PutImage := @libvga_PutImageProc;
GetImage := @libvga_GetImageProc;} GetImage := @libvga_GetImageProc;}
{ If you use the default getimage/putimage, you also need the default { If you use the default getimage/putimage, you also need the default
imagesize! (JM) imagesize! (JM)
ImageSize := @libvga_ImageSizeProc; } ImageSize := @libvga_ImageSizeProc; }
{ Add later maybe ? { Add later maybe ?
@ -595,7 +595,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.16 2000-06-25 13:38:30 jonas Revision 1.17 2000-06-30 22:14:44 peter
* removed unused var
Revision 1.16 2000/06/25 13:38:30 jonas
* disabled libvga_imagesizeproc() because currently the default * disabled libvga_imagesizeproc() because currently the default
getimage and putimage are used (so the default imagesize should getimage and putimage are used (so the default imagesize should
be used too) be used too)