581 isBuiltInClass

   582     "return true if this class is known by the run-time-system.

   583      Here, true is returned."

   584 

   585     ^ self == ExternalBytes

   586 

   587     "Modified: / 11.6.1998 / 17:12:51 / cg"

   588 !

   589 

  1275 containsNon7BitAscii

  1276     "return true, if any byte in the receiver has the 7th bit on.

  1277      This my look as a too specific operation to be put here,

  1278      put it is very helpful for UTF8 string reading (Java class reader),

  1279      to quickly determine, if UTF8 decoding is needed or not.

  1280      As most strings in a class file are in fact only containing 7bit ascii,

  1281      this should speedup class file reading considerably"

  1282 

  1283 %{  /* NOCONTEXT */

  1284     unsigned char *cp = __INST(address_);

  1285     unsigned int size = __intVal(__INST(size));

  1286     unsigned char *endP;

  1287 

  1288     if (cp == nil || size == 0) {

  1289         RETURN(false);

  1290     }

  1291 

  1292     endP = cp + size;

  1293 #if __POINTER_SIZE__ == 8

  1294     while (cp+8 < endP) {

  1295         if ( ((unsigned INT *)cp)[0] & 0x8080808080808080) RETURN( true );

  1296         cp += 8;

  1297     }

  1298 #endif

  1299     while (cp+4 < endP) {

  1300         if ( ((unsigned int *)cp)[0] & 0x80808080) RETURN( true );

  1301         cp += 4;

  1302     }

  1303     while (cp < endP) {

  1304         if (*cp++ & 0x80) RETURN( true );

  1305     }

  1306     RETURN ( false );

  1307 %}

  1308 .

  1309     ^ self contains:[:b | b bitTest:16r80].

  1310 

  1311     "

  1312      #[1 2 3 1 2 3 1 2 127 ] asExternalBytes containsNon7BitAscii

  1313      #[1 2 3 1 2 3 1 2 250 251 250 251 255] asExternalBytes containsNon7BitAscii

  1314     "

  1315 !

  1316