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

m68k-amiga: document which legacy support functions are unimplemented and why, and where are they used in the RTL code

Browse Source 
git-svn-id: trunk@44959 -
This commit is contained in:
Károly Balogh 2020-04-21 13:54:22 +00:00
parent 184d6d61ed
commit ef790adc28
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,6 +175,8 @@ function NameFromFH(fh : BPTR;
len : LongInt): LongBool; public name '_fpc_amiga_namefromfh'; len : LongInt): LongBool; public name '_fpc_amiga_namefromfh';
begin begin
{$warning NameFromFH unimplemented!} {$warning NameFromFH unimplemented!}
{ note that this is only used in sysutils/FileSetDate, but because SetFileDate() (see below)
is not easily possible on KS1.x, so it might not be needed to implement this at all (KB) }
NameFromFH:=false; NameFromFH:=false;
end; end;
@ -182,6 +184,12 @@ function ExamineFH(fh : BPTR;
fib: PFileInfoBlock): LongBool; public name '_fpc_amiga_examinefh'; fib: PFileInfoBlock): LongBool; public name '_fpc_amiga_examinefh';
begin begin
{$warning ExamineFH unimplemented!} {$warning ExamineFH unimplemented!}
{ ExamineFH is only used to determine file size, in sysfile.inc/do_filesize(),
but this code is already always falling back to double-seek method on KS1.x, and in
other location is sysutils/FileGetDate(), which deals with this function returning
false. Note that ExamineFH can fail on newer Amiga systems as well, because the
underlying FS needs to support ACTION_EXAMINE_FH which some FSes known not to do,
so the only difference is right now that it always fails on KS1.x... }
ExamineFH:=false; ExamineFH:=false;
end; end;
@ -404,6 +412,8 @@ function SetFileDate(name: PChar;
date: PDateStamp): LongBool; public name '_fpc_amiga_setfiledate'; date: PDateStamp): LongBool; public name '_fpc_amiga_setfiledate';
begin begin
{$warning SetFileDate unimplemented!} {$warning SetFileDate unimplemented!}
{ Might not be possible to implement, or implement with a reasonable effort on KS1.x (KS) }
{ Used in: dos/SetFTime, sysutils/FileSetDate }
SetFileDate:=false; SetFileDate:=false;
end; end;
@ -412,6 +422,8 @@ function SetFileSize(fh : LongInt;
mode: LongInt): LongInt; public name '_fpc_amiga_setfilesize'; mode: LongInt): LongInt; public name '_fpc_amiga_setfilesize';
begin begin
{$warning SetFileSize unimplemented!} {$warning SetFileSize unimplemented!}
{ Might not be possible to implement, or implement with a reasonable effort on KS1.x (KS) }
{ Used in: sysfile.inc/do_truncate, sysutils/FileCreate, sysutils/FileTruncate }
SetFileSize:=-1; SetFileSize:=-1;
end; end;