Behavior.st
branchjv
changeset 19912 ca84ec5f80a7
parent 19899 25b35b705da5
parent 19904 28e5df23d412
child 19947 436cd430841a
equal deleted inserted replaced
19903:bde12a6eb128 19912:ca84ec5f80a7
  2752 		    }
  2752 		    }
  2753 #  else
  2753 #  else
  2754 		    memset(__InstPtr(newobj)->i_instvars, 0, instsize - OHDR_SIZE);
  2754 		    memset(__InstPtr(newobj)->i_instvars, 0, instsize - OHDR_SIZE);
  2755 #  endif
  2755 #  endif
  2756 # else
  2756 # else
  2757 		    while (nInstVars--)
  2757                     while (nInstVars-- != 0)
  2758 			*op++ = nil;
  2758 			*op++ = nil;
  2759 		    fp = (float *)op;
  2759 		    fp = (float *)op;
  2760 		    while (nindexedinstvars--)
  2760                     while (nindexedinstvars-- != 0)
  2761 			*fp++ = 0.0;
  2761 			*fp++ = 0.0;
  2762 # endif
  2762 # endif
  2763 		    RETURN ( newobj );
  2763 		    RETURN ( newobj );
  2764 		    break;
  2764 		    break;
  2765 
  2765 
  2789 #  else
  2789 #  else
  2790 		    memset(__InstPtr(newobj)->i_instvars, 0, instsize - OHDR_SIZE);
  2790 		    memset(__InstPtr(newobj)->i_instvars, 0, instsize - OHDR_SIZE);
  2791 #  endif
  2791 #  endif
  2792 # else
  2792 # else
  2793 		    op = __InstPtr(newobj)->i_instvars;
  2793 		    op = __InstPtr(newobj)->i_instvars;
  2794 		    while (nInstVars--)
  2794                     while (nInstVars-- != 0)
  2795 			*op++ = nil;
  2795 			*op++ = nil;
  2796 
  2796 
  2797 #  ifdef __NEED_DOUBLE_ALIGN
  2797 #  ifdef __NEED_DOUBLE_ALIGN
  2798 		    /*
  2798 		    /*
  2799 		     * care for double alignment
  2799 		     * care for double alignment
  2802 		    if ((INT)op & (__DOUBLE_ALIGN-1)) {
  2802 		    if ((INT)op & (__DOUBLE_ALIGN-1)) {
  2803 			*op++ = nil;
  2803 			*op++ = nil;
  2804 		    }
  2804 		    }
  2805 #  endif
  2805 #  endif
  2806 		    dp = (double *)op;
  2806 		    dp = (double *)op;
  2807 		    while (nindexedinstvars--)
  2807                     while (nindexedinstvars-- != 0)
  2808 			*dp++ = 0.0;
  2808 			*dp++ = 0.0;
  2809 # endif
  2809 # endif
  2810 		    RETURN ( newobj );
  2810 		    RETURN ( newobj );
  2811 		    break;
  2811 		    break;
  2812 
  2812 
  2845 			    ((double *)op)[3] = 0.0;
  2845 			    ((double *)op)[3] = 0.0;
  2846 			    op += 8;
  2846 			    op += 8;
  2847 			    nInstVars -= 8;
  2847 			    nInstVars -= 8;
  2848 			}
  2848 			}
  2849 		    }
  2849 		    }
  2850 		    while (nInstVars) {
  2850                     while (nInstVars != 0) {
  2851 			*op++ = 0;
  2851 			*op++ = 0;
  2852 			nInstVars--;
  2852 			nInstVars--;
  2853 		    }
  2853 		    }
  2854 #  else
  2854 #  else
  2855 #   if defined(FAST_ARRAY_MEMSET_LONGLONG_UNROLLED)
  2855 #   if defined(FAST_ARRAY_MEMSET_LONGLONG_UNROLLED)
  2864 			    ((long long *)op)[3] = 0;
  2864 			    ((long long *)op)[3] = 0;
  2865 			    op += 8;
  2865 			    op += 8;
  2866 			    nInstVars -= 8;
  2866 			    nInstVars -= 8;
  2867 			}
  2867 			}
  2868 		    }
  2868 		    }
  2869 		    while (nInstVars) {
  2869                     while (nInstVars != 0) {
  2870 			*op++ = 0;
  2870 			*op++ = 0;
  2871 			nInstVars--;
  2871 			nInstVars--;
  2872 		    }
  2872 		    }
  2873 #   else
  2873 #   else
  2874 #    if defined(FAST_ARRAY_MEMSET)
  2874 #    if defined(FAST_ARRAY_MEMSET)
  2881 			op[2] = nil; op[3] = nil;
  2881 			op[2] = nil; op[3] = nil;
  2882 			op[4] = nil; op[5] = nil;
  2882 			op[4] = nil; op[5] = nil;
  2883 			op[6] = nil; op[7] = nil;
  2883 			op[6] = nil; op[7] = nil;
  2884 			op += 8;
  2884 			op += 8;
  2885 		    }
  2885 		    }
  2886 		    while (nInstVars--)
  2886                     while (nInstVars-- != 0)
  2887 			*op++ = nil;
  2887 			*op++ = nil;
  2888 #    endif
  2888 #    endif
  2889 #   endif
  2889 #   endif
  2890 #  endif
  2890 #  endif
  2891 # endif
  2891 # endif
  2919 			    memset(__InstPtr(newobj)->i_instvars, 0, instsize - OHDR_SIZE);
  2919 			    memset(__InstPtr(newobj)->i_instvars, 0, instsize - OHDR_SIZE);
  2920 #  else
  2920 #  else
  2921 			    op = __InstPtr(newobj)->i_instvars;
  2921 			    op = __InstPtr(newobj)->i_instvars;
  2922 			    do {
  2922 			    do {
  2923 				*op++ = nil;
  2923 				*op++ = nil;
  2924 			    } while (--nInstVars);
  2924                             } while (--nInstVars != 0);
  2925 #  endif
  2925 #  endif
  2926 # endif
  2926 # endif
  2927 			}
  2927 			}
  2928 			RETURN ( newobj );
  2928 			RETURN ( newobj );
  2929 		    }
  2929 		    }