diff --git a/packages/fcl-passrc/src/pastree.pp b/packages/fcl-passrc/src/pastree.pp index f3ead48d1e..6b522f5635 100644 --- a/packages/fcl-passrc/src/pastree.pp +++ b/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 diff --git a/packages/pastojs/src/pas2jsfiler.pp b/packages/pastojs/src/pas2jsfiler.pp index ecbdd452c7..d9956abc42 100644 --- a/packages/pastojs/src/pas2jsfiler.pp +++ b/packages/pastojs/src/pas2jsfiler.pp @@ -294,7 +294,6 @@ const 'Class', 'Interface', 'Generic', - 'Specialize', 'ClassHelper', 'RecordHelper', 'TypeHelper',