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

* cheat and declare many of the empty routines as 'inline' to save some precious memory bytes :)

Browse Source 
git-svn-id: branches/z80@45133 -
This commit is contained in:
nickysn 2020-04-26 23:01:20 +00:00
parent 25a42c6469
commit cb169980b7
3 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/zxspectrum/sysdir.inc
View File

@ -18,18 +18,18 @@
Directory Handling
*****************************************************************************}
Procedure do_MkDir(const s: rawbytestring);
Procedure do_MkDir(const s: rawbytestring);inline;
begin
end;
Procedure do_RmDir(const s: rawbytestring);
Procedure do_RmDir(const s: rawbytestring);inline;
begin
end;
Procedure do_ChDir(const s: rawbytestring);
Procedure do_ChDir(const s: rawbytestring);inline;
begin
end;
procedure do_GetDir (DriveNr: byte; var Dir: RawByteString);
procedure do_GetDir (DriveNr: byte; var Dir: RawByteString);inline;
begin
end;

20
rtl/zxspectrum/sysfile.inc
View File

@ -18,17 +18,17 @@
Low level File Routines
****************************************************************************}
procedure do_close(handle : thandle);
procedure do_close(handle : thandle);inline;
begin
end;
procedure do_erase(p : pchar; pchangeable: boolean);
procedure do_erase(p : pchar; pchangeable: boolean);inline;
begin
end;
procedure do_rename(p1,p2 : pchar; p1changeable, p2changeable: boolean);
procedure do_rename(p1,p2 : pchar; p1changeable, p2changeable: boolean);inline;
begin
end;
@ -64,33 +64,33 @@ begin
end;
function do_filepos(handle : thandle) : longint;
function do_filepos(handle : thandle) : longint;inline;
begin
end;
procedure do_seek(handle:thandle;pos : longint);
procedure do_seek(handle:thandle;pos : longint);inline;
begin
end;
function do_seekend(handle:thandle):longint;
function do_seekend(handle:thandle):longint;inline;
begin
end;
function do_filesize(handle : thandle) : longint;
function do_filesize(handle : thandle) : longint;inline;
begin
end;
{ truncate at a given position }
procedure do_truncate (handle:thandle;pos:longint);
procedure do_truncate (handle:thandle;pos:longint);inline;
begin
end;
procedure do_open(var f;p:pchar;flags:longint; pchangeable: boolean);
procedure do_open(var f;p:pchar;flags:longint; pchangeable: boolean);inline;
{
filerec and textrec have both handle and mode as the first items so
they could use the same routine for opening/creating.
@ -102,7 +102,7 @@ begin
end;
function do_isdevice(handle:THandle):boolean;
function do_isdevice(handle:THandle):boolean;inline;
begin
do_isdevice:=true;
end;

5
rtl/zxspectrum/sysheap.inc
View File

@ -17,10 +17,11 @@
Heap Management
*****************************************************************************}
function SysOSAlloc (size: ptruint): pointer;
function SysOSAlloc (size: ptruint): pointer;inline;
begin
SysOSAlloc:=nil;
end;
procedure SysOSFree(p: pointer; size: ptruint);
procedure SysOSFree(p: pointer; size: ptruint);inline;
begin
end;