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

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

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-27 15:10:02 +01:00
parent 3608be8f13
commit 50572fda8c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/amiga/m68k/legacydos.inc
View File

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