paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 19:29:27 +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); procedure LFNSearchRec2Dos(const w:LFNSearchRec;hdl:longint;var d:Searchrec;from_findfirst : boolean);
var var
Len : longint; Len : integer;
begin begin
With w do With w do
begin begin
@ -666,7 +666,7 @@ end;
procedure dossearchrec2searchrec(var f : searchrec); procedure dossearchrec2searchrec(var f : searchrec);
var var
len : longint; len : integer;
begin begin
{ Check is necessary!! OS/2's VDM doesn't clear the name with #0 if the } { Check is necessary!! OS/2's VDM doesn't clear the name with #0 if the }
{ file doesn't exist! (JM) } { file doesn't exist! (JM) }
@ -766,7 +766,7 @@ end;
Function FSearch(path: pathstr; dirlist: string): pathstr; Function FSearch(path: pathstr; dirlist: string): pathstr;
var var
i,p1 : longint; p1 : integer;
s : searchrec; s : searchrec;
newdir : pathstr; newdir : pathstr;
begin begin
@ -1001,7 +1001,7 @@ end;
Function GetEnv(envvar: string): string; Function GetEnv(envvar: string): string;
var var
hs : string; hs : string;
eqpos : longint; eqpos : integer;
I : integer; I : integer;
begin begin
envvar:=upcase(envvar); envvar:=upcase(envvar);