[XeTeX] Is there the primitive \XeTeXcharsclass to set many chars' class simultaneously?

[SONG Zhiwei]

I use the primitive \XeTeXcharclass to set the chars "1000-"EFFF to
the class 4 in a macro like following:

\def\@setclass[#1-#2]#3{%
  \newcount\tmp
  \tmp=#1
  \XeTeXcharclass\tmp=#3
  \loop\ifnum\tmp<#2
    \advance\tmp by 1
    \XeTeXcharclass\tmp=#3
  \repeat}
\@setclass["1000-"EFFF]4

But the xelatex reports:

! TeX capacity exceeded, sorry [save size=50000].

Is there a primitive to set the class for a unicode range
simultaneously, i.e. \XeTeXcharsclass?