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

* changed some longint vars to integer and cleaned up some unused vars from the

Browse Source 
msdos dos unit.

git-svn-id: trunk@27158 -
This commit is contained in:
nickysn 2014-03-16 13:55:00 +00:00
parent ac6611ceb9
commit ee34761646
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/msdos/dos.pp
View File

@ -552,7 +552,7 @@ type
procedure LFNSearchRec2Dos(const w:LFNSearchRec;hdl:longint;var d:Searchrec;from_findfirst : boolean);
var
Len : longint;
Len : integer;
begin
With w do
begin
@ -666,7 +666,7 @@ end;
procedure dossearchrec2searchrec(var f : searchrec);
var
len : longint;
len : integer;
begin
{ Check is necessary!! OS/2's VDM doesn't clear the name with #0 if the }
{ file doesn't exist! (JM) }
@ -766,7 +766,7 @@ end;
Function FSearch(path: pathstr; dirlist: string): pathstr;
var
i,p1 : longint;
p1 : integer;
s : searchrec;
newdir : pathstr;
begin
@ -1001,7 +1001,7 @@ end;
Function GetEnv(envvar: string): string;
var
hs : string;
eqpos : longint;
eqpos : integer;
I : integer;
begin
envvar:=upcase(envvar);