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

* do_truncate works, some cleanup

Browse Source
This commit is contained in:
carl 1998-07-13 12:32:18 +00:00
parent 09451d2805
commit 5bac56f11c
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/amiga/sysamiga.pas
View File

@ -16,8 +16,13 @@
**********************************************************************}
unit sysamiga;
{ Things left to do : }
{ - Fix Truncate!! }
{--------------------------------------------------------------------}
{ LEFT TO DO: }
{--------------------------------------------------------------------}
{ o ChDir('..') }
{ o SBrk }
{ o GetDir with different drive numbers }
{--------------------------------------------------------------------}
{$I os.inc}
@ -50,6 +55,11 @@ const
_DosBase : pointer = nil; { DOS library pointer }
_UtilityBase : pointer = nil; { utiity library pointer }
{ Required for crt unit }
function do_read(h,addr,len : longint) : longint;
function do_write(h,addr,len : longint) : longint;
var
OrigDir : Longint;
@ -1391,8 +1401,8 @@ end.
{
$Log$
Revision 1.7 1998-07-09 11:54:57 carl
+ implemented do_truncate
Revision 1.8 1998-07-13 12:32:18 carl
* do_truncate works, some cleanup
Revision 1.6 1998/07/02 12:37:52 carl
* IOCheck for chdir,rmdir and mkdir as in TP