paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 02:58:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation with -dSYSTEMDEBUG after heap changes (removal of 'tiny' in memory functions in tiny heap)

Browse Source 
git-svn-id: trunk@34019 -
This commit is contained in:
pierre 2016-06-25 08:16:52 +00:00
parent 13076a3580
commit 7129de8a6e
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/msdos/sysfile.inc
View File

@ -24,8 +24,6 @@
free_closed_names : boolean = true; free_closed_names : boolean = true;
verbose_files : 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} {$endif SYSTEMDEBUG}
@ -50,7 +48,7 @@ begin
if verbose_files then if verbose_files then
Writeln(stderr,'file ',opennames[handle],' closed'); Writeln(stderr,'file ',opennames[handle],' closed');
systinyfreememsize(opennames[handle],strlen(opennames[handle])+1); sysfreememsize(opennames[handle],strlen(opennames[handle])+1);
opennames[handle]:=nil; opennames[handle]:=nil;
end; end;
{$endif SYSTEMDEBUG} {$endif SYSTEMDEBUG}
@ -397,12 +395,12 @@ begin
assigned(opennames[regs.AX]) then assigned(opennames[regs.AX]) then
begin begin
Writeln(stderr,'file ',opennames[regs.AX],'(',regs.AX,') not closed but handle reused!'); 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; end;
{$endif SYSTEMDEBUG} {$endif SYSTEMDEBUG}
openfiles[regs.AX]:=true; openfiles[regs.AX]:=true;
{$ifdef SYSTEMDEBUG} {$ifdef SYSTEMDEBUG}
opennames[regs.AX] := systinygetmem(strlen(p)+1); opennames[regs.AX] := sysgetmem(strlen(p)+1);
move(p^,opennames[regs.AX]^,strlen(p)+1); move(p^,opennames[regs.AX]^,strlen(p)+1);
if verbose_files then if verbose_files then
Writeln(stderr,'file ',opennames[regs.AX],' opened'); Writeln(stderr,'file ',opennames[regs.AX],' opened');