Ignore:
Timestamp:
Apr 17, 2011, 10:28:28 AM (11 years ago)
Author:
Sam Hocevar
Message:

lisp: implement LispNumber::Create.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/objects.cpp

    r484 r486  
    492492    l_ptr_stack.push(&am);
    493493
    494     ((LispList *)am)->car=new_lisp_number(amount);
     494    ((LispList *)am)->car=LispNumber::Create(amount);
    495495
    496496    frm=new_cons_cell();
     
    502502    l_ptr_stack.push(&hx);
    503503
    504     ((LispList *)hx)->car=new_lisp_number(hitx);
     504    ((LispList *)hx)->car=LispNumber::Create(hitx);
    505505
    506506    hy=new_cons_cell();
    507507    l_ptr_stack.push(&hy);
    508     ((LispList *)hy)->car=new_lisp_number(hity);
     508    ((LispList *)hy)->car=LispNumber::Create(hity);
    509509
    510510    px=new_cons_cell();
    511511    l_ptr_stack.push(&px);
    512     ((LispList *)px)->car=new_lisp_number(push_xvel);
     512    ((LispList *)px)->car=LispNumber::Create(push_xvel);
    513513
    514514    py=new_cons_cell();
    515515    l_ptr_stack.push(&py);
    516     ((LispList *)py)->car=new_lisp_number(push_yvel);
     516    ((LispList *)py)->car=LispNumber::Create(push_yvel);
    517517
    518518
     
    910910      } else
    911911      {
    912     push_onto_list(new_lisp_number(ly),rlist);
    913     push_onto_list(new_lisp_number(lx),rlist);
     912    push_onto_list(LispNumber::Create(ly),rlist);
     913    push_onto_list(LispNumber::Create(lx),rlist);
    914914    push_onto_list(l_tile,rlist);
    915915      }
    916       push_onto_list(new_lisp_number(ret),rlist);
     916      push_onto_list(LispNumber::Create(ret),rlist);
    917917
    918918      return rlist;
     
    12231223    lcx=new_cons_cell();
    12241224    l_ptr_stack.push(&lcx);
    1225     ((LispList *)lcx)->car=new_lisp_number(cx);
     1225    ((LispList *)lcx)->car=LispNumber::Create(cx);
    12261226
    12271227    lcy=new_cons_cell();
    12281228    l_ptr_stack.push(&lcy);
    1229     ((LispList *)lcy)->car=new_lisp_number(cy);
     1229    ((LispList *)lcy)->car=LispNumber::Create(cy);
    12301230
    12311231    lb=new_cons_cell();
    12321232    l_ptr_stack.push(&lb);
    1233     ((LispList *)lb)->car=new_lisp_number(button);
     1233    ((LispList *)lb)->car=LispNumber::Create(button);
    12341234
    12351235
Note: See TracChangeset for help on using the changeset viewer.