paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:50:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation for win16 OS with -dSYSTEMDEBUG

Browse Source 
git-svn-id: trunk@33718 -
This commit is contained in:
pierre 2016-05-20 15:58:27 +00:00
parent e4a9e0ceea
commit 7fd805c5d8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win16/sysfile.inc
View File

@ -43,7 +43,7 @@ begin
{$ifdef SYSTEMDEBUG}
if assigned(opennames[handle]) and free_closed_names then
begin
sysfreememsize(opennames[handle],strlen(opennames[handle])+1);
freemem(opennames[handle],strlen(opennames[handle])+1);
opennames[handle]:=nil;
end;
{$endif SYSTEMDEBUG}
@ -378,12 +378,12 @@ begin
assigned(opennames[regs.AX]) then
begin
Writeln(stderr,'file ',opennames[regs.AX],'(',regs.AX,') not closed but handle reused!');
sysfreememsize(opennames[regs.AX],strlen(opennames[regs.AX])+1);
freemem(opennames[regs.AX],strlen(opennames[regs.AX])+1);
end;
{$endif SYSTEMDEBUG}
openfiles[regs.AX]:=true;
{$ifdef SYSTEMDEBUG}
opennames[regs.AX] := sysgetmem(strlen(p)+1);
opennames[regs.AX] := getmem(strlen(p)+1);
move(p^,opennames[regs.AX]^,strlen(p)+1);
{$endif SYSTEMDEBUG}
end;