git-svn-id: trunk@2530 -
@@ -1150,7 +1150,8 @@ implementation
case deftype of
orddef,
pointerdef,
- enumdef:
+ enumdef,
+ classrefdef:
is_intregable:=true;
procvardef :
is_intregable:=not(po_methodpointer in tprocvardef(self).procoptions);