Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

two typos (which didn't have effect on the reslt)

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@5 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2006-06-23 11:02:10 +00:00
parent c13dc29ea3
commit 89cf62b067
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/uPSCompiler.pas
View File

@ -14033,7 +14033,7 @@ var
begin begin
for i := FItems.Count -1 downto 0 do for i := FItems.Count -1 downto 0 do
begin begin
TPSType(FItems[i]).Free; TPSAttribute(FItems[i]).Free;
end; end;
FItems.Free; FItems.Free;
inherited Destroy; inherited Destroy;
@ -14132,7 +14132,7 @@ end;
procedure TPSParametersDecl.DeleteParam(I: Longint); procedure TPSParametersDecl.DeleteParam(I: Longint);
var var
param: TPSParameter; param: TPSParameterDecl;
begin begin
param := FParams[i]; param := FParams[i];
FParams.Delete(i); FParams.Delete(i);