paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Slight optimization (constant instead of variable in assignment)

Browse Source 
git-svn-id: trunk@2747 -
This commit is contained in:
Tomas Hajny 2006-03-04 23:09:06 +00:00
parent ccbc7717cc
commit 88a8aa31d9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/fexpand.inc
View File

@ -130,7 +130,7 @@ begin
begin begin
for I := 1 to Length (Pa) do for I := 1 to Length (Pa) do
if Pa [I] = '/' then if Pa [I] = '/' then
Pa [I] := DirectorySeparator Pa [I] := '\'
end end
else else
if DirectorySeparator = '/' then if DirectorySeparator = '/' then
@ -138,7 +138,7 @@ begin
begin begin
for I := 1 to Length (Pa) do for I := 1 to Length (Pa) do
if Pa [I] = '\' then if Pa [I] = '\' then
Pa [I] := DirectorySeparator; Pa [I] := '/';
end; end;
(* PathStart is amount of characters to strip to get beginning *) (* PathStart is amount of characters to strip to get beginning *)