소스 검색

* range check problem with LFN attr removed

pierre 27 년 전
부모
커밋
ef3430e517
1개의 변경된 파일8개의 추가작업 그리고 2개의 파일을 삭제
  1. 8 2
      rtl/dos/dos.pp

+ 8 - 2
rtl/dos/dos.pp

@@ -595,7 +595,7 @@ begin
      Move(Name[0],d.Name[1],Len);
      Move(Name[0],d.Name[1],Len);
      d.Time:=lmTime;
      d.Time:=lmTime;
      d.Size:=Size;
      d.Size:=Size;
-     d.Attr:=Attr;
+     d.Attr:=Attr and $FF;
      Move(hdl,d.Fill,4);
      Move(hdl,d.Fill,4);
    end;
    end;
 end;
 end;
@@ -1139,7 +1139,13 @@ End;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.11  1998-08-28 10:45:58  peter
+  Revision 1.12  1998-09-11 12:46:44  pierre
+    * range check problem with LFN attr removed
+
+  Revision 1.11.2.1  1998/09/11 12:38:41  pierre
+    * conversion from LFN attr to Dos attr did not respect range checking
+
+  Revision 1.11  1998/08/28 10:45:58  peter
     * fixed path buffer in findfirst
     * fixed path buffer in findfirst
 
 
   Revision 1.10  1998/08/27 10:30:48  pierre
   Revision 1.10  1998/08/27 10:30:48  pierre