equal
deleted
inserted
replaced
954 iVal = (iVal << 8) | cp[0]; |
954 iVal = (iVal << 8) | cp[0]; |
955 } |
955 } |
956 #endif |
956 #endif |
957 } |
957 } |
958 #if __POINTER_SIZE__ == 8 |
958 #if __POINTER_SIZE__ == 8 |
959 RETURN (__MKSMALLINT(iVal)); |
959 RETURN (__mkSmallInteger(iVal)); |
960 #else |
960 #else |
961 RETURN (__MKUINT(iVal)); |
961 RETURN (__MKUINT(iVal)); |
962 #endif |
962 #endif |
963 } |
963 } |
964 } |
964 } |
1142 */ |
1142 */ |
1143 if (((INT)cp & (sizeof(int)-1)) == 0) { |
1143 if (((INT)cp & (sizeof(int)-1)) == 0) { |
1144 int iVal = ((int *)cp)[0]; |
1144 int iVal = ((int *)cp)[0]; |
1145 |
1145 |
1146 # if __POINTER_SIZE__ == 8 |
1146 # if __POINTER_SIZE__ == 8 |
1147 RETURN (__MKSMALLINT(iVal)); |
1147 RETURN (__mkSmallInteger(iVal)); |
1148 # else |
1148 # else |
1149 RETURN (__MKINT(iVal)); |
1149 RETURN (__MKINT(iVal)); |
1150 # endif |
1150 # endif |
1151 } |
1151 } |
1152 #endif |
1152 #endif |
1423 iVal = (iVal << 8) | cp[0]; |
1423 iVal = (iVal << 8) | cp[0]; |
1424 } |
1424 } |
1425 #endif |
1425 #endif |
1426 } |
1426 } |
1427 #if __POINTER_SIZE__ == 8 |
1427 #if __POINTER_SIZE__ == 8 |
1428 RETURN (__MKSMALLINT(iVal)); |
1428 RETURN (__mkSmallInteger(iVal)); |
1429 #else |
1429 #else |
1430 RETURN (__MKINT(iVal)); |
1430 RETURN (__MKINT(iVal)); |
1431 #endif |
1431 #endif |
1432 } |
1432 } |
1433 } |
1433 } |
2211 ! ! |
2211 ! ! |
2212 |
2212 |
2213 !UninterpretedBytes class methodsFor:'documentation'! |
2213 !UninterpretedBytes class methodsFor:'documentation'! |
2214 |
2214 |
2215 version |
2215 version |
2216 ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.56 2005-07-07 15:01:52 cg Exp $' |
2216 ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.57 2005-07-08 17:15:03 cg Exp $' |
2217 ! ! |
2217 ! ! |