hg/stx-libbasic: comparison ExternalBytes.st

equal deleted inserted replaced

-:3d1947a79cf3
+:b9498d27a554
 	char *chunk;
 	unsigned size;
 	struct mallocList *next;
 };
 static struct mallocList *mallocList = (struct mallocList *)0;
-static mallocCount = 0;
+static INT mallocCount = 0;
 static void
 removeFromMallocList(ptr)
 char *ptr;
 {
 "
 !
 numberOfAllocatedChunks
 %{  /* NOCONTEXT */
-RETURN ( __MKSMALLINT(mallocCount) );
+RETURN ( __mkSmallInteger(mallocCount) );
 %}
 "
 self numberOfAllocatedChunks
 "
 ! !
 sizeofDouble
 "return the number of bytes used by the machines native doubles"
 %{  /* NOCONTEXT */
-RETURN (__MKSMALLINT( sizeof(double)));
+RETURN (__mkSmallInteger( sizeof(double)));
 %}
 "
 ExternalBytes sizeofDouble
 "
 !
 sizeofFloat
 "return the number of bytes used by the machines native floats"
 %{  /* NOCONTEXT */
-RETURN (__MKSMALLINT( sizeof(float)));
+RETURN (__mkSmallInteger( sizeof(float)));
 %}
 "
 ExternalBytes sizeofFloat
 "
 !
 sizeofInt
 "return the number of bytes used by the machines native integer"
 %{  /* NOCONTEXT */
-RETURN (__MKSMALLINT( sizeof(int)));
+RETURN (__mkSmallInteger( sizeof(int)));
 %}
 "
 ExternalBytes sizeofInt
 "
 !
 sizeofLong
 "return the number of bytes used by the machines native longs"
 %{  /* NOCONTEXT */
-RETURN (__MKSMALLINT( sizeof(long)));
+RETURN (__mkSmallInteger( sizeof(long)));
 %}
 "
 ExternalBytes sizeofLong
 "
 !
 sizeofPointer
 "return the number of bytes used by the machines native pointer"
 %{  /* NOCONTEXT */
-RETURN (__MKSMALLINT( sizeof(char *)));
+RETURN (__mkSmallInteger( sizeof(char *)));
 %}
 "
 ExternalBytes sizeofPointer
 "
 !
 sizeofShort
 "return the number of bytes used by the machines native short"
 %{  /* NOCONTEXT */
-RETURN (__MKSMALLINT( sizeof(short)));
+RETURN (__mkSmallInteger( sizeof(short)));
 %}
 "
 ExternalBytes sizeofShort
 "
 ! !
 address
 "return the start address as an integer"
 %{  /* NOCONTEXT */
-int addr;
+INT addr;
 if (__INST(address_) != nil) {
 	addr = (INT)__INST(address_);
 	if (addr <= _MAX_INT) {
-	    RETURN ( __MKSMALLINT(addr) );
+	    RETURN ( __mkSmallInteger(addr) );
 	}
 	RETURN ( __MKUINT(addr));
 }
 %}.
 ^ nil
 	idx = __intVal(index);
 	if (idx > 0) {
 	    if (((sz = __INST(size)) == nil)
 	     || (__intVal(sz) >= idx)) {
 		cp = cp + idx - 1;
-		RETURN ( __MKSMALLINT(*cp) );
+		RETURN ( __mkSmallInteger((*cp)) );
 	    }
 	}
 }
 %}.
 (size notNil and:[self address notNil]) ifTrue:[
 ! !
 !ExternalBytes class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.58 2005-07-08 14:00:04 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.59 2005-07-08 17:15:01 cg Exp $'
 ! !
 ExternalBytes initialize!

changeset 8913	b9498d27a554
parent 8908	68017b13590b
child 8919	707a9ff7f9b2