paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:42:34 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/bsd/system.pp
View File

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

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

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

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

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

1
rtl/objpas/varutils.inc
View File

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

1
rtl/unix/keyboard.pp
View File

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

12
rtl/unix/video.pp
View File

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