paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 12:05:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed cleanup on exit.

Browse Source 
git-svn-id: trunk@5401 -
This commit is contained in:
yury 2006-11-16 10:49:05 +00:00
parent 3f0dfdcba4
commit ed714baff3
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/wince/system.pp
View File

@ -1772,10 +1772,12 @@ procedure SysCleanup;
var
i: integer;
begin
if FCmdLine = nil then
exit;
SysFreeMem(FCmdLine);
for i:=0 to argc do
sysfreemem(argv[i]);
sysfreemem(argv);
for i:=0 to Fargc do
sysfreemem(Fargv[i]);
sysfreemem(Fargv);
end;
initialization