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

7
rtl/inc/dos.inc
View File

@ -238,7 +238,7 @@ end;
{$IFNDEF HAS_FSPLIT} {$IFNDEF HAS_FSPLIT}
Procedure FSplit (Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr); Procedure FSplit (Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr);
var var
DirEnd, ExtStart: cardinal; DirEnd, ExtStart: Longint;
begin begin
if DirectorySeparator = '/' then if DirectorySeparator = '/' then
{ allow backslash as slash } { allow backslash as slash }
@ -298,7 +298,10 @@ end;
{ {
$Log$ $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 * GetMsCount added, platform independent routines moved to single include file
Revision 1.1 2004/11/28 12:33:35 hajny Revision 1.1 2004/11/28 12:33:35 hajny