paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

- remove lower in hint

Browse Source
This commit is contained in:
carl 2002-12-05 19:27:40 +00:00
parent e992fd20ab
commit 6227991d96
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pbase.pas
View File

@ -175,11 +175,11 @@ implementation
if not assigned(srsym) then
exit;
if sp_hint_deprecated in srsym.symoptions then
Message1(sym_w_deprecated_symbol,lower(srsym.name));
Message1(sym_w_deprecated_symbol,srsym.realname);
if sp_hint_platform in srsym.symoptions then
Message1(sym_w_non_portable_symbol,lower(srsym.name));
Message1(sym_w_non_portable_symbol,srsym.realname);
if sp_hint_unimplemented in srsym.symoptions then
Message1(sym_w_non_implemented_symbol,lower(srsym.name));
Message1(sym_w_non_implemented_symbol,srsym.realname);
end;
@ -263,7 +263,10 @@ implementation
end.
{
$Log$
Revision 1.21 2002-11-30 11:12:48 carl
Revision 1.22 2002-12-05 19:28:05 carl
- remove lower in hint
Revision 1.21 2002/11/30 11:12:48 carl
+ checking for symbols used with hint directives is done mostly in pexpr
only now

7
compiler/pdecl.pas
View File

@ -432,7 +432,7 @@ implementation
newtype:=ttypesym(sym);
tt:=newtype.restype;
end;
message1(parser_h_type_redef,lower(typename));
message1(parser_h_type_redef,typename);
end;
end;
{ no old type reused ? Then insert this new type }
@ -627,7 +627,10 @@ implementation
end.
{
$Log$
Revision 1.61 2002-11-25 18:43:32 carl
Revision 1.62 2002-12-05 19:27:40 carl
- remove lower in hint
Revision 1.61 2002/11/25 18:43:32 carl
- removed the invalid if <> checking (Delphi is strange on this)
+ implemented abstract warning on instance creation of class with
abstract methods.