Selaa lähdekoodia

* Compilation fix in fsearch

daniel 21 vuotta sitten
vanhempi
commit
a3ca3996a6
1 muutettua tiedostoa jossa 5 lisäystä ja 2 poistoa
  1. 5 2
      rtl/unix/unix.pp

+ 5 - 2
rtl/unix/unix.pp

@@ -1632,7 +1632,7 @@ Begin
      i:=length(dirlist);
      i:=length(dirlist);
      j:=1;
      j:=1;
      Repeat
      Repeat
-       NewDir:=p+'/'+Path;
+       NewDir:=strpas(p)+'/'+Path;
        if (FpStat(NewDir,Info)>=0) and
        if (FpStat(NewDir,Info)>=0) and
           (not fpS_ISDIR(Info.st_Mode)) then
           (not fpS_ISDIR(Info.st_Mode)) then
         Begin
         Begin
@@ -1754,7 +1754,10 @@ End.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.70  2004-04-23 19:16:25  marco
+  Revision 1.71  2004-07-03 13:15:51  daniel
+    * Compilation fix in fsearch
+
+  Revision 1.70  2004/04/23 19:16:25  marco
    * flock -> fpflock because of conflicting structure name
    * flock -> fpflock because of conflicting structure name
 
 
   Revision 1.69  2004/04/22 17:17:13  peter
   Revision 1.69  2004/04/22 17:17:13  peter