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

* another longint2cardinal fix

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-14 21:10:06 +00:00
parent 5e504a4e98
commit 9bd5572f72
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/os2/system.pas
View File

@ -898,7 +898,7 @@ procedure GetDir (DriveNr: byte; var Dir: ShortString);
{Written by Michael Van Canneyt.} {Written by Michael Van Canneyt.}
var sof: Pchar; var sof: Pchar;
i:byte; i:byte;
l, l2: Longint; l,l2:cardinal;
begin begin
Dir [4] := #0; Dir [4] := #0;
{ Used in case the specified drive isn't available } { Used in case the specified drive isn't available }
@ -1162,7 +1162,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.45 2003-10-13 21:17:31 hajny Revision 1.46 2003-10-14 21:10:06 hajny
* another longint2cardinal fix
Revision 1.45 2003/10/13 21:17:31 hajny
* longint to cardinal corrections * longint to cardinal corrections
Revision 1.44 2003/10/12 18:07:30 hajny Revision 1.44 2003/10/12 18:07:30 hajny