paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 23:38:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some warnings fixed

Browse Source
This commit is contained in:
florian 2021-09-18 19:24:05 +02:00
parent d3ec8f0d29
commit f78818e387
3 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/pdecl.pas
View File

@ -803,6 +803,7 @@ implementation
(oo_is_forward in tobjectdef(ttypesym(sym).typedef).objectoptions) then (oo_is_forward in tobjectdef(ttypesym(sym).typedef).objectoptions) then
begin begin
wasforward:=true; wasforward:=true;
objecttype:=odt_none;
case token of case token of
_CLASS : _CLASS :
objecttype:=default_class_type; objecttype:=default_class_type;

1
compiler/pexpr.pas
View File

@ -2383,6 +2383,7 @@ implementation
if (p1.nodetype=stringconstn) and (token=_ID) then if (p1.nodetype=stringconstn) and (token=_ID) then
begin begin
strdef:=nil;
{ the def of a string const is an array } { the def of a string const is an array }
case tstringconstnode(p1).cst_type of case tstringconstnode(p1).cst_type of
cst_conststring: cst_conststring:

1
compiler/symsym.pas
View File

@ -548,6 +548,7 @@ implementation
function same_constvalue(consttyp:tconsttyp;const value1,value2:tconstvalue):boolean; function same_constvalue(consttyp:tconsttyp;const value1,value2:tconstvalue):boolean;
begin begin
result:=false;
case consttyp of case consttyp of
constnone, constnone,
constnil: constnil: