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

* removed/conditionalised several unused variables

Browse Source 
git-svn-id: trunk@4199 -
This commit is contained in:
Jonas Maebe 2006-07-14 20:44:57 +00:00
parent 2429cdce1b
commit 9e801eb048
6 changed files with 11 additions and 11 deletions

4
rtl/bsd/system.pp
View File

@ -80,8 +80,8 @@ end;
{ variable where full path and filename and executable is stored }
{ is setup by the startup of the system unit. }
var
execpathstr : shortstring;
//var
// execpathstr : shortstring;
function paramstr(l: longint) : string;
begin

2
rtl/objpas/classes/streams.inc
View File

@ -534,8 +534,6 @@ end;
function TMemoryStream.Realloc(var NewCapacity: Longint): Pointer;
Var MoveSize : Longint;
begin
// round off to block size.
If NewCapacity<0 Then

2
rtl/objpas/sysutils/sysutils.inc
View File

@ -577,9 +577,9 @@ end;
function SafeLoadLibrary(const FileName: AnsiString;
ErrorMode: DWord = {$ifdef windows}SEM_NOOPENFILEERRORBOX{$else windows}0{$endif windows}): HMODULE;
{$if defined(cpui386) or defined(cpux86_64)}
var
mode : DWord;
{$if defined(cpui386) or defined(cpux86_64)}
fpucw : Word;
ssecw : DWord;
{$endif}

1
rtl/objpas/varutils.inc
View File

@ -316,7 +316,6 @@ end;
Function SafeArrayCopyDataSpace(psa, psaOut: PVarArray): HRESULT;
var
vVargSrc, vTarget: Pointer;
vat: TVariantArrayType;
begin
try

1
rtl/unix/keyboard.pp
View File

@ -1049,7 +1049,6 @@ end;
function ReadKey(var IsAlt : boolean):char;
var
ch : char;
is_delay : boolean;
fdsin : tfdSet;
store : array [0..8] of char;
arrayind : byte;

12
rtl/unix/video.pp
View File

@ -200,7 +200,9 @@ const convert:Tconversion=cv_none;
var
LastCursorType : byte;
{$ifdef linux}
TtyFd: Longint;
{$endif linux}
Console: Tconsole_type;
cur_term_strings:Ptermcodes;
{$ifdef logging}
@ -960,7 +962,9 @@ end;
procedure SysInitVideo;
var
{$ifdef linux}
FName: String;
{$endif linux}
WS: packed record
ws_row, ws_col, ws_xpixel, ws_ypixel: Word;
end;
@ -984,8 +988,10 @@ begin
begin
{ save current terminal characteristics and remove rawness }
prepareInitVideo;
{$ifdef linux}
{ running on a tty, find out whether locally or remotely }
TTyfd:=-1;
{$endif linux}
Console:=TTyNetwork; {Default: Network or other vtxxx tty}
cur_term_strings:=@term_codes_vt100; {Default: vt100}
external_codepage:=iso01; {Default: ISO-8859-1}
@ -1159,10 +1165,6 @@ end;
procedure SysUpdateScreen(Force: Boolean);
var
DoUpdate : boolean;
i : longint;
p1,p2 : plongint;
begin
{$ifdef linux}
if console=ttylinux then
@ -1182,8 +1184,10 @@ end;
procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
{$ifdef linux}
var
Pos : array [1..2] of Byte;
{$endif linux}
begin
if (CursorX=NewCursorX) and (CursorY=NewCursorY) then
exit;