|
@@ -232,6 +232,7 @@ implementation
|
|
tcb.emit_ord_const(def.callerargareasize,ptrsinttype);
|
|
tcb.emit_ord_const(def.callerargareasize,ptrsinttype);
|
|
tcb.emit_shortstring_const(sym.realname);
|
|
tcb.emit_shortstring_const(sym.realname);
|
|
|
|
|
|
|
|
+ para:=nil;
|
|
for k:=0 to def.paras.count-1 do
|
|
for k:=0 to def.paras.count-1 do
|
|
begin
|
|
begin
|
|
para:=tparavarsym(def.paras[k]);
|
|
para:=tparavarsym(def.paras[k]);
|