Browse Source

resolver: constructing a class with abstract methods: changed note to warning

git-svn-id: trunk@38984 -
Mattias Gaertner 7 years ago
parent
commit
288cf4e62d
2 changed files with 2 additions and 2 deletions
  1. 1 1
      packages/fcl-passrc/src/pasresolver.pp
  2. 1 1
      packages/fcl-passrc/src/pscanner.pp

+ 1 - 1
packages/fcl-passrc/src/pasresolver.pp

@@ -13817,7 +13817,7 @@ begin
           // aClass.Create: do not warn
         else
           for i:=0 to length(ClassScope.AbstractProcs)-1 do
-            LogMsg(20171227110746,mtNote,nConstructingClassXWithAbstractMethodY,
+            LogMsg(20171227110746,mtWarning,nConstructingClassXWithAbstractMethodY,
               sConstructingClassXWithAbstractMethodY,
               [TypeEl.Name,ClassScope.AbstractProcs[i].Name],FindData.ErrorPosEl);
         end;

+ 1 - 1
packages/fcl-passrc/src/pscanner.pp

@@ -32,7 +32,7 @@ const
   nErrInvalidPPElse = 1005;
   nErrInvalidPPEndif = 1006;
   nLogOpeningFile = 1007;
-  nLogLineNumber = 1008;
+  nLogLineNumber = 1008; // same as FPC
   nLogIFDefAccepted = 1009;
   nLogIFDefRejected = 1010;
   nLogIFNDefAccepted = 1011;