|
@@ -2375,8 +2375,6 @@ implementation
|
|
else
|
|
else
|
|
ft:=tcpuprocdef(pd).create_functype;
|
|
ft:=tcpuprocdef(pd).create_functype;
|
|
totalremovesize:=Length(ft.params)-Length(ft.results);
|
|
totalremovesize:=Length(ft.params)-Length(ft.results);
|
|
- if Length(ft.results)=0 then
|
|
|
|
- dec(totalremovesize);
|
|
|
|
{ remove parameters from internal evaluation stack counter (in case of
|
|
{ remove parameters from internal evaluation stack counter (in case of
|
|
e.g. no parameters and a result, it can also increase) }
|
|
e.g. no parameters and a result, it can also increase) }
|
|
if totalremovesize>0 then
|
|
if totalremovesize>0 then
|