[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.290 by root, Sat May 17 14:57:23 2008 UTC vs.
Revision 1.291 by root, Sun Jun 15 20:32:51 2008 UTC

 void rangevector (object *ob, object *other, int flags = 0)
 	PROTOTYPE: $$;$
         PPCODE:
 {
         rv_vector rv;
+        PUTBACK;
         get_rangevector (ob, other, &rv, flags);
+        SPAGAIN;
         EXTEND (SP, 5);
         PUSHs (newSVuv (rv.distance));
         PUSHs (newSViv (rv.distance_x));
         PUSHs (newSViv (rv.distance_y));
         PUSHs (newSViv (rv.direction));
 get_map_flags (maptile *map, int x, int y)
 	PPCODE:
 {
         maptile *nmap = 0;
         I16 nx = 0, ny = 0;
+        PUTBACK;
         int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
+        SPAGAIN;
         EXTEND (SP, 4);
         PUSHs (sv_2mortal (newSViv (flags)));
         if (GIMME_V == G_ARRAY)
 void
 at (maptile *map, unsigned int x, unsigned int y)
 	PROTOTYPE: $$$
         PPCODE:
 {
-	object *o;
         maptile *nmap = 0;
         I16 nx, ny;
+        PUTBACK;
         get_map_flags (map, &nmap, x, y, &nx, &ny);
+        SPAGAIN;
         if (nmap)
-          for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
+          for (object *o = nmap->at (nx, ny).bot; o; o = o->above)
             XPUSHs (sv_2mortal (to_sv (o)));
 }
 SV *
 bot_at (maptile *obj, unsigned int x, unsigned int y)

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines