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

* fixed overflow

Browse Source
This commit is contained in:
peter 2004-12-15 17:03:01 +00:00
parent 9e49f8eef9
commit 24bea4f525
1 changed files with 5 additions and 2 deletions

7
rtl/inc/dos.inc
View File

@ -238,7 +238,7 @@ end;
{$IFNDEF HAS_FSPLIT}
Procedure FSplit (Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr);
var
DirEnd, ExtStart: cardinal;
DirEnd, ExtStart: Longint;
begin
if DirectorySeparator = '/' then
{ allow backslash as slash }
@ -298,7 +298,10 @@ end;
{
$Log$
Revision 1.2 2004-12-05 16:44:43 hajny
Revision 1.3 2004-12-15 17:03:01 peter
* fixed overflow
Revision 1.2 2004/12/05 16:44:43 hajny
* GetMsCount added, platform independent routines moved to single include file
Revision 1.1 2004/11/28 12:33:35 hajny