paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adapted to new heaph

Browse Source
This commit is contained in:
pierre 1999-09-20 12:40:20 +00:00
parent c9110d73e3
commit 4d5712cc69
1 changed files with 1440 additions and 1437 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/system.pp
View File

@ -747,7 +747,7 @@ begin
openfiles[handle]:=false; openfiles[handle]:=false;
if assigned(opennames[handle]) and free_closed_names then if assigned(opennames[handle]) and free_closed_names then
begin begin
sysfreemem(opennames[handle],strlen(opennames[handle])+1); sysfreememsize(opennames[handle],strlen(opennames[handle])+1);
opennames[handle]:=nil; opennames[handle]:=nil;
end; end;
end; end;
@ -1040,7 +1040,7 @@ begin
assigned(opennames[regs.realeax]) then assigned(opennames[regs.realeax]) then
begin begin
Writeln(stderr,'file ',opennames[regs.realeax],'(',regs.realeax,') not closed but handle reused!'); Writeln(stderr,'file ',opennames[regs.realeax],'(',regs.realeax,') not closed but handle reused!');
sysfreemem(opennames[regs.realeax],strlen(opennames[regs.realeax])+1); sysfreememsize(opennames[regs.realeax],strlen(opennames[regs.realeax])+1);
end; end;
openfiles[regs.realeax]:=true; openfiles[regs.realeax]:=true;
sysgetmem(opennames[regs.realeax],strlen(p)+1); sysgetmem(opennames[regs.realeax],strlen(p)+1);
@ -1288,7 +1288,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.18 1999-09-10 17:14:09 peter Revision 1.19 1999-09-20 12:40:20 pierre
* adapted to new heaph
Revision 1.18 1999/09/10 17:14:09 peter
* better errorcode returning using int21h,5900 * better errorcode returning using int21h,5900
Revision 1.17 1999/09/10 15:40:33 peter Revision 1.17 1999/09/10 15:40:33 peter