diff -r 3d1947a79cf3 -r b9498d27a554 FloatArray.st
--- a/FloatArray.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/FloatArray.st	Fri Jul 08 19:15:03 2005 +0200
@@ -130,9 +130,9 @@
      The argument must be another vector"
 
 %{
-    if ((__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0))
+    if ((__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0))
      && __isFloats(floatArray)
-     && (__ClassInstPtr(__qClass(floatArray))->c_ninstvars == __MKSMALLINT(0))) {
+     && (__ClassInstPtr(__qClass(floatArray))->c_ninstvars == __mkSmallInteger(0))) {
         int _sz1 = __floatArraySize(self);
         int _sz2 = __floatArraySize(floatArray);
         int i;
@@ -164,7 +164,7 @@
     "add the scalar argument into the receiver (destructive)."
 
 %{
-    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0)) {
+    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0)) {
         int _sz1 = __floatArraySize(self);
         int i;
         float *_p1 = __FloatArrayInstPtr(self)->f_element;
@@ -207,9 +207,9 @@
      The argument must be another vector"
 
 %{
-    if ((__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0))
+    if ((__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0))
      && __isFloats(floatArray)
-     && (__ClassInstPtr(__qClass(floatArray))->c_ninstvars == __MKSMALLINT(0))) {
+     && (__ClassInstPtr(__qClass(floatArray))->c_ninstvars == __mkSmallInteger(0))) {
         int _sz1 = __floatArraySize(self);
         int _sz2 = __floatArraySize(floatArray);
         int i;
@@ -241,7 +241,7 @@
     "multiply the scalar argument into the receiver (destructive)."
 
 %{
-    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0)) {
+    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0)) {
         int _sz1 = __floatArraySize(self);
         int i;
         float *_p1 = __FloatArrayInstPtr(self)->f_element;
@@ -288,7 +288,7 @@
 
     newArr := self class new:(self size).
 %{
-    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0)) {
+    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0)) {
         int _sz = __floatArraySize(self);
 
         bcopy(__FloatArrayInstPtr(self)->f_element,
@@ -313,7 +313,7 @@
     "return a partial copy of the receiver"
 
 %{
-    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0)) {
+    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0)) {
         if (__bothSmallInteger(start, stop)) {
             int __start = __intVal(start) - 1;
             int __stop = __intVal(stop) - 1 ;
@@ -353,9 +353,9 @@
 
 replaceFrom:start to:stop with:aCollection startingAt:replStart
 %{
-    if ((__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0))
+    if ((__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0))
      && __isFloats(aCollection)
-     && (__ClassInstPtr(__qClass(aCollection))->c_ninstvars == __MKSMALLINT(0))) {
+     && (__ClassInstPtr(__qClass(aCollection))->c_ninstvars == __mkSmallInteger(0))) {
         if (__bothSmallInteger(start, stop)
          && __isSmallInteger(replStart)) {
             int __start = __intVal(start) - 1;
@@ -451,7 +451,7 @@
     "return the largest element;
      redefined for speed"
 %{
-    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0)) {
+    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0)) {
         int _sz = __floatArraySize(self);
 
         if (_sz > 0) {
@@ -502,7 +502,7 @@
     "return the largest element;
      redefined for speed"
 %{
-    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0)) {
+    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0)) {
         int _sz = __floatArraySize(self);
 
         if (_sz > 0) {
@@ -556,7 +556,7 @@
     |min max|
 
 %{
-    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __MKSMALLINT(0)) {
+    if (__ClassInstPtr(__qClass(self))->c_ninstvars == __mkSmallInteger(0)) {
         int _sz = __floatArraySize(self);
         if (_sz > 0) {
             int _i;
@@ -616,5 +616,5 @@
 !FloatArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.19 2003-04-22 09:39:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.20 2005-07-08 17:15:01 cg Exp $'
 ! !