paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 16:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: removed not used okSpecialize

Browse Source 
git-svn-id: trunk@38183 -
This commit is contained in:
Mattias Gaertner 2018-02-10 09:54:28 +00:00
parent 99e99e17f0
commit 715295edd6
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pastree.pp
View File

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

1
packages/pastojs/src/pas2jsfiler.pp
View File

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