CharacterArray.st
changeset 3987 b3a2a7377640
parent 3985 087595c7629b
child 4117 1b98af571a04
equal deleted inserted replaced
3986:2ad4ebb5ebbb 3987:b3a2a7377640
  2649     REGISTER unsigned char *cp, *cp0;
  2649     REGISTER unsigned char *cp, *cp0;
  2650     int l;
  2650     int l;
  2651 
  2651 
  2652     cp = __stringVal(self);
  2652     cp = __stringVal(self);
  2653     l = __stringSize(self);
  2653     l = __stringSize(self);
  2654     if (__qClass(self) != @global(Strung)) {
  2654     if (__qClass(self) != @global(String)) {
  2655         int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
  2655         int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
  2656 
  2656 
  2657         cp += n;
  2657         cp += n;
  2658         l -= n;
  2658         l -= n;
  2659     }
  2659     }
  5228 ! !
  5228 ! !
  5229 
  5229 
  5230 !CharacterArray class methodsFor:'documentation'!
  5230 !CharacterArray class methodsFor:'documentation'!
  5231 
  5231 
  5232 version
  5232 version
  5233     ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.156 1999-02-15 08:48:26 stefan Exp $'
  5233     ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.157 1999-02-15 13:20:32 cg Exp $'
  5234 ! !
  5234 ! !
  5235 CharacterArray initialize!
  5235 CharacterArray initialize!