/[cmucl]/src/lisp/gencgc.c
ViewVC logotype

Diff of /src/lisp/gencgc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70.2.1 by rtoy, Fri Jun 9 16:05:19 2006 UTC revision 1.70.2.1.4.1 by rtoy, Fri Jun 16 03:46:59 2006 UTC
# Line 4234  trans_vector_long_float(lispobj object) Line 4234  trans_vector_long_float(lispobj object)
4234  }  }
4235  #endif  #endif
4236    
4237    #ifdef type_SimpleArrayDoubleDoubleFloat
4238    static int
4239    size_vector_double_double_float(lispobj * where)
4240    {
4241        struct vector *vector;
4242        int length, nwords;
4243    
4244        vector = (struct vector *) where;
4245        length = fixnum_value(vector->length);
4246        nwords = CEILING(length * 4 + 2, 2);
4247    
4248        return nwords;
4249    }
4250    
4251    static int
4252    scav_vector_double_double_float(lispobj * where, lispobj object)
4253    {
4254        return size_vector_double_double_float(where);
4255    }
4256    
4257    static lispobj
4258    trans_vector_double_double_float(lispobj object)
4259    {
4260        gc_assert(Pointerp(object));
4261        return copy_large_unboxed_object(object,
4262                                         size_vector_double_double_float((lispobj *)
4263                                                                PTR(object)));
4264    }
4265    #endif
4266    
4267  #ifdef type_SimpleArrayComplexSingleFloat  #ifdef type_SimpleArrayComplexSingleFloat
4268  static int  static int
# Line 4562  gc_init_tables(void) Line 4591  gc_init_tables(void)
4591  #ifdef type_SimpleArrayLongFloat  #ifdef type_SimpleArrayLongFloat
4592      scavtab[type_SimpleArrayLongFloat] = scav_vector_long_float;      scavtab[type_SimpleArrayLongFloat] = scav_vector_long_float;
4593  #endif  #endif
4594    #ifdef type_SimpleArrayDoubleDoubleFloat
4595        scavtab[type_SimpleArrayDoubleDoubleFloat] = scav_vector_double_double_float;
4596    #endif
4597  #ifdef type_SimpleArrayComplexSingleFloat  #ifdef type_SimpleArrayComplexSingleFloat
4598      scavtab[type_SimpleArrayComplexSingleFloat] =      scavtab[type_SimpleArrayComplexSingleFloat] =
4599          scav_vector_complex_single_float;          scav_vector_complex_single_float;
# Line 4665  gc_init_tables(void) Line 4697  gc_init_tables(void)
4697  #ifdef type_SimpleArrayLongFloat  #ifdef type_SimpleArrayLongFloat
4698      transother[type_SimpleArrayLongFloat] = trans_vector_long_float;      transother[type_SimpleArrayLongFloat] = trans_vector_long_float;
4699  #endif  #endif
4700    #ifdef type_SimpleArrayDoubleDoubleFloat
4701        transother[type_SimpleArrayDoubleDoubleFloat] = trans_vector_double_double_float;
4702    #endif
4703  #ifdef type_SimpleArrayComplexSingleFloat  #ifdef type_SimpleArrayComplexSingleFloat
4704      transother[type_SimpleArrayComplexSingleFloat] =      transother[type_SimpleArrayComplexSingleFloat] =
4705          trans_vector_complex_single_float;          trans_vector_complex_single_float;
# Line 4761  gc_init_tables(void) Line 4796  gc_init_tables(void)
4796  #ifdef type_SimpleArrayLongFloat  #ifdef type_SimpleArrayLongFloat
4797      sizetab[type_SimpleArrayLongFloat] = size_vector_long_float;      sizetab[type_SimpleArrayLongFloat] = size_vector_long_float;
4798  #endif  #endif
4799    #ifdef type_SimpleArrayDoubleDoubleFloat
4800        sizetab[type_SimpleArrayDoubleDoubleFloat] = size_vector_double_double_float;
4801    #endif
4802  #ifdef type_SimpleArrayComplexSingleFloat  #ifdef type_SimpleArrayComplexSingleFloat
4803      sizetab[type_SimpleArrayComplexSingleFloat] =      sizetab[type_SimpleArrayComplexSingleFloat] =
4804          size_vector_complex_single_float;          size_vector_complex_single_float;
# Line 5032  valid_dynamic_space_pointer(lispobj * po Line 5070  valid_dynamic_space_pointer(lispobj * po
5070  #ifdef type_SimpleArrayLongFloat  #ifdef type_SimpleArrayLongFloat
5071              case type_SimpleArrayLongFloat:              case type_SimpleArrayLongFloat:
5072  #endif  #endif
5073    #ifdef type_SimpleArrayDoubleDoubleFloat
5074                case type_SimpleArrayDoubleFloat:
5075    #endif
5076  #ifdef type_SimpleArrayComplexSingleFloat  #ifdef type_SimpleArrayComplexSingleFloat
5077              case type_SimpleArrayComplexSingleFloat:              case type_SimpleArrayComplexSingleFloat:
5078  #endif  #endif
# Line 5111  maybe_adjust_large_object(lispobj * wher Line 5152  maybe_adjust_large_object(lispobj * wher
5152  #ifdef type_SimpleArrayLongFloat  #ifdef type_SimpleArrayLongFloat
5153        case type_SimpleArrayLongFloat:        case type_SimpleArrayLongFloat:
5154  #endif  #endif
5155    #ifdef type_SimpleArrayDoubleDoubleFloat
5156          case type_SimpleArrayDoubleDoubleFloat:
5157    #endif
5158  #ifdef type_SimpleArrayComplexSingleFloat  #ifdef type_SimpleArrayComplexSingleFloat
5159        case type_SimpleArrayComplexSingleFloat:        case type_SimpleArrayComplexSingleFloat:
5160  #endif  #endif
# Line 6271  verify_space(lispobj * start, size_t wor Line 6315  verify_space(lispobj * start, size_t wor
6315  #endif  #endif
6316                case type_SimpleArraySingleFloat:                case type_SimpleArraySingleFloat:
6317                case type_SimpleArrayDoubleFloat:                case type_SimpleArrayDoubleFloat:
6318    #ifdef type_SimpleArrayDoubleDoubleFloat
6319                  case type_SimpleArrayDoubleDoubleFloat:
6320    #endif
6321  #ifdef type_SimpleArrayComplexLongFloat  #ifdef type_SimpleArrayComplexLongFloat
6322                case type_SimpleArrayLongFloat:                case type_SimpleArrayLongFloat:
6323  #endif  #endif

Legend:
Removed from v.1.70.2.1  
changed lines
  Added in v.1.70.2.1.4.1

  ViewVC Help
Powered by ViewVC 1.1.5