paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 17:00:24 +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; unit sysamiga;
{ Things left to do : } {--------------------------------------------------------------------}
{ - Fix Truncate!! } { LEFT TO DO: }
{--------------------------------------------------------------------}
{ o ChDir('..') }
{ o SBrk }
{ o GetDir with different drive numbers }
{--------------------------------------------------------------------}
{$I os.inc} {$I os.inc}
@ -50,6 +55,11 @@ const
_DosBase : pointer = nil; { DOS library pointer } _DosBase : pointer = nil; { DOS library pointer }
_UtilityBase : pointer = nil; { utiity 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 var
OrigDir : Longint; OrigDir : Longint;
@ -1391,8 +1401,8 @@ end.
{ {
$Log$ $Log$
Revision 1.7 1998-07-09 11:54:57 carl Revision 1.8 1998-07-13 12:32:18 carl
+ implemented do_truncate * do_truncate works, some cleanup
Revision 1.6 1998/07/02 12:37:52 carl Revision 1.6 1998/07/02 12:37:52 carl
* IOCheck for chdir,rmdir and mkdir as in TP * IOCheck for chdir,rmdir and mkdir as in TP