From 715295edd6d88a5b671e6689bdc4f1ffc5f97326 Mon Sep 17 00:00:00 2001 From: Mattias Gaertner Date: Sat, 10 Feb 2018 09:54:28 +0000 Subject: [PATCH] fcl-passrc: removed not used okSpecialize git-svn-id: trunk@38183 - --- packages/fcl-passrc/src/pastree.pp | 4 +--- packages/pastojs/src/pas2jsfiler.pp | 1 - 2 files changed, 1 insertion(+), 4 deletions(-) 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',