소스 검색

rtl/amiga: fixed the FileInfoBlock copy to the Anchor chain which broke recently with the alignment fixes

Karoly Balogh 3 년 전
부모
커밋
50572fda8c
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      rtl/amiga/m68k/legacydos.inc

+ 1 - 1
rtl/amiga/m68k/legacydos.inc

@@ -338,7 +338,7 @@ begin
         NChain^.an_Parent := Pointer(Anchor);
       end;
       // copy the fileinfoblock into the chain
-      Move(fib, NChain^.an_Info, SizeOf(TFileInfoBlock));
+      Move(fib^, NChain^.an_Info, SizeOf(TFileInfoBlock));
     end;
   until Res = 0; // useless... we jump out earlier
   //