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');