|
@@ -223,12 +223,12 @@ implementation
|
|
vs_constref,
|
|
vs_constref,
|
|
vs_out,
|
|
vs_out,
|
|
vs_var :
|
|
vs_var :
|
|
- push_size:=sizeof(pint);
|
|
|
|
|
|
+ push_size:=voidpointertype.size;
|
|
vs_value,
|
|
vs_value,
|
|
vs_const :
|
|
vs_const :
|
|
begin
|
|
begin
|
|
if push_addr_param(varspez,def,calloption) then
|
|
if push_addr_param(varspez,def,calloption) then
|
|
- push_size:=sizeof(pint)
|
|
|
|
|
|
+ push_size:=voidpointertype.size
|
|
else
|
|
else
|
|
begin
|
|
begin
|
|
{ special array are normally pushed by addr, only for
|
|
{ special array are normally pushed by addr, only for
|