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

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45133 3ad0048d-3df7-0310-abae-a5850022a9f2

3 files changed, 17 insertions, 16 deletions

diff --git a/rtl/zxspectrum/sysdir.inc b/rtl/zxspectrum/sysdir.inc
index 1d04169f45..e748d3e1de 100644
--- a/rtl/zxspectrum/sysdir.inc
+++ b/rtl/zxspectrum/sysdir.inc
@@ -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;
diff --git a/rtl/zxspectrum/sysfile.inc b/rtl/zxspectrum/sysfile.inc
index 4475c32639..e7c5e912dd 100644
--- a/rtl/zxspectrum/sysfile.inc
+++ b/rtl/zxspectrum/sysfile.inc
@@ -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;
diff --git a/rtl/zxspectrum/sysheap.inc b/rtl/zxspectrum/sysheap.inc
index 5d2e097257..3265ce76a1 100644
--- a/rtl/zxspectrum/sysheap.inc
+++ b/rtl/zxspectrum/sysheap.inc
@@ -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;