git-svn-id: branches/debug_eh@42051 -
@@ -346,6 +346,8 @@ uses
case callpara^.typ of
top_tai:
callpara^.ai.free;
+ else
+ ;
end;
dispose(callpara);
@@ -367,6 +367,8 @@ implementation
callpara^.ai:=cnv;
@@ -1407,6 +1407,8 @@ begin
not(po_external in tprocdef(tprocsym(srsym).ProcdefList[0]).procoptions) then
cnodeutils.RegisterUsedAsmSym(current_asmdata.RefAsmSymbol(tprocdef(tprocsym(srsym).ProcdefList[0]).mangledname,AT_FUNCTION),tprocdef(tprocsym(srsym).ProcdefList[0]),true);