paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 03:51:11 +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);
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

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

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