Browse Source

fcl-passrc: removed not used okSpecialize

git-svn-id: trunk@38183 -
Mattias Gaertner 7 years ago
parent
commit
715295edd6
2 changed files with 1 additions and 4 deletions
  1. 1 3
      packages/fcl-passrc/src/pastree.pp
  2. 0 1
      packages/pastojs/src/pas2jsfiler.pp

+ 1 - 3
packages/fcl-passrc/src/pastree.pp

@@ -670,7 +670,7 @@ type
   TPasGenericTemplateType = Class(TPasType);
   TPasObjKind = (
     okObject, okClass, okInterface, okGeneric,
-    okSpecialize,
+    // okSpecialize removed in FPC 3.1.1
     okClassHelper,okRecordHelper,okTypeHelper,
     okDispInterface);
 
@@ -1468,7 +1468,6 @@ const
 
   ObjKindNames: array[TPasObjKind] of string = (
     'object', 'class', 'interface', 'class',
-    'class',
     'class helper','record helper','type helper','dispinterface');
 
   ExprKindNames : Array[TPasExprKind] of string = (
@@ -2579,7 +2578,6 @@ begin
     okClass: Result := SPasTreeClassType;
     okInterface: Result := SPasTreeInterfaceType;
     okGeneric : Result := SPasTreeGenericType;
-    okSpecialize : Result := SPasTreeSpecializedType;
     okClassHelper : Result:=SPasClassHelperType;
     okRecordHelper : Result:=SPasRecordHelperType;
   else

+ 0 - 1
packages/pastojs/src/pas2jsfiler.pp

@@ -294,7 +294,6 @@ const
     'Class',
     'Interface',
     'Generic',
-    'Specialize',
     'ClassHelper',
     'RecordHelper',
     'TypeHelper',