vectorize.cpp

   1 #include "stdafx.h"
   2
   3 //-----------------------------------------------------------------------------
   4 //
   5 //      Encapsulate stack values in a vector
   6 //
   7 //      Input:          n               Number of values on stack
   8 //
   9 //                      tos-n           Start of value
  10 //
  11 //      Output:         Vector on stack
  12 //
  13 //-----------------------------------------------------------------------------
  14
  15 #include "defs.h"
  16
  17 void
  18 vectorize(int n)
  19 {
  20         int i;
  21
  22         save();
  23
  24         p1 = alloc_tensor(n);
  25
  26         p1->u.tensor->ndim = 1;
  27         p1->u.tensor->dim[0] = n;
  28
  29         for (i = 0; i < n; i++)
  30                 p1->u.tensor->elem[i] = stack[tos - n + i];
  31
  32         tos -= n;
  33
  34         push(p1);
  35
  36         restore();
  37 }