paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix case completeness warnings

Browse Source 
git-svn-id: branches/debug_eh@42051 -
This commit is contained in:
Jonas Maebe 2019-05-12 18:46:47 +00:00
parent 1b6425176b
commit 853e622fb7
3 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/aasmllvm.pas
View File

@ -346,6 +346,8 @@ uses
case callpara^.typ of case callpara^.typ of
top_tai: top_tai:
callpara^.ai.free; callpara^.ai.free;
else
;
end; end;
dispose(callpara); dispose(callpara);
end; end;

2
compiler/llvm/llvmtype.pas
View File

@ -367,6 +367,8 @@ implementation
callpara^.ai:=cnv; callpara^.ai:=cnv;
end; end;
end; end;
else
;
end; end;
end; end;
end; end;

2
compiler/rautils.pas
View File

@ -1407,6 +1407,8 @@ begin
not(po_external in tprocdef(tprocsym(srsym).ProcdefList[0]).procoptions) then 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); cnodeutils.RegisterUsedAsmSym(current_asmdata.RefAsmSymbol(tprocdef(tprocsym(srsym).ProcdefList[0]).mangledname,AT_FUNCTION),tprocdef(tprocsym(srsym).ProcdefList[0]),true);
end; end;
else
;
end; end;
end; end;
end; end;