nbody.Body.constructor


Body constructor(float x_, float y_, float mass_, float radius_, float ax_, float ay_, int index, Semaphore sem)
Vars: int index, array[Body] TEMP$3, Semaphore sem, float mass_, float radius_, float x_, int TEMP$2, float TEMP$0, float y_, float ay_, float TEMP$1, float ax_.
QueueObject
q0ARG
q1TEMP
q2TEMP2
q3TEMP3
q4TEMP4
q5LOADADDR
q6LOADDATA
q7STOREADDR
q8STOREDATA
q9THIS
q10RETURN
q11x_
q12y_
q13mass_
q14radius_
q15ax_
q16ay_
q17index
q18sem
q19TEMP$0
q20TEMP$1
q21TEMP$2
q22TEMP$3
constructor_top63
(ASSIGN (ENQUEUE NO TEMP$0) (TOFLOAT 0))
(ASSIGN (ENQUEUE NO TEMP$1) (MINUS (DEQUEUE NO TEMP$0) 9.7))
(ASSIGN (IVARSET (THIS) G) (DEQUEUE NO TEMP$1))
(ASSIGN (IVARSET (THIS) NUMPLANETS) 32)
(ASSIGN (IVARSET (THIS) sticky) false)
(ASSIGN (IVARSET (THIS) x) (DEQUEUE NO x_))
(ASSIGN (IVARSET (THIS) y) (DEQUEUE NO y_))
(ASSIGN (IVARSET (THIS) mass) (DEQUEUE NO mass_))
(ASSIGN (IVARSET (THIS) radius) (DEQUEUE NO radius_))
(ASSIGN (IVARSET (THIS) ax) (DEQUEUE NO ax_))
(ASSIGN (IVARSET (THIS) ay) (DEQUEUE NO ay_))
(ASSIGN (ENQUEUE NO TEMP$2) (IVARREF (THIS) NUMPLANETS))
(ASSIGN (ENQUEUE NO TEMP$3) (NEWARRAY People.ObjectType:Body (DEQUEUE NO TEMP$2)))
(ASSIGN (IVARSET (THIS) planets) (DEQUEUE NO TEMP$3))
(ASSIGN (IVARSET (THIS) myIndex) (DEQUEUE NO index))
(ASSIGN (IVARSET (THIS) mySem) (DEQUEUE NO sem))
(RETURN (THIS))