From 7129de8a6eb9bcbb45708e3be712e3bac65cae62 Mon Sep 17 00:00:00 2001 From: pierre Date: Sat, 25 Jun 2016 08:16:52 +0000 Subject: [PATCH] Fix compilation with -dSYSTEMDEBUG after heap changes (removal of 'tiny' in memory functions in tiny heap) git-svn-id: trunk@34019 - --- rtl/msdos/sysfile.inc | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/rtl/msdos/sysfile.inc b/rtl/msdos/sysfile.inc index 6d1c6966ec..156f15dddf 100644 --- a/rtl/msdos/sysfile.inc +++ b/rtl/msdos/sysfile.inc @@ -24,8 +24,6 @@ free_closed_names : boolean = true; verbose_files : boolean = true; - { we cannot allocate memory using SysGetMem, as we use tinyheap code, - but tinyheap.inc source in inserted later, so we need a forward declaration } {$endif SYSTEMDEBUG} @@ -50,7 +48,7 @@ begin if verbose_files then Writeln(stderr,'file ',opennames[handle],' closed'); - systinyfreememsize(opennames[handle],strlen(opennames[handle])+1); + sysfreememsize(opennames[handle],strlen(opennames[handle])+1); opennames[handle]:=nil; end; {$endif SYSTEMDEBUG} @@ -397,12 +395,12 @@ begin assigned(opennames[regs.AX]) then begin Writeln(stderr,'file ',opennames[regs.AX],'(',regs.AX,') not closed but handle reused!'); - systinyfreememsize(opennames[regs.AX],strlen(opennames[regs.AX])+1); + sysfreememsize(opennames[regs.AX],strlen(opennames[regs.AX])+1); end; {$endif SYSTEMDEBUG} openfiles[regs.AX]:=true; {$ifdef SYSTEMDEBUG} - opennames[regs.AX] := systinygetmem(strlen(p)+1); + opennames[regs.AX] := sysgetmem(strlen(p)+1); move(p^,opennames[regs.AX]^,strlen(p)+1); if verbose_files then Writeln(stderr,'file ',opennames[regs.AX],' opened');