Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 196984 | Differences between
and this patch

Collapse All | Expand All

(-)Squeak-3.9-9/platforms/Cross/vm/sqMemoryAccess.h.orig (-3 / +3 lines)
Lines 82-88 Link Here
82
  static inline sqInt longAtPointerput(char *ptr, sqInt val)	{ return (sqInt)(*((sqInt *)ptr)= (sqInt)val); }
82
  static inline sqInt longAtPointerput(char *ptr, sqInt val)	{ return (sqInt)(*((sqInt *)ptr)= (sqInt)val); }
83
  static inline sqInt oopAtPointer(char *ptr)			{ return (sqInt)(*((sqInt *)ptr)); }
83
  static inline sqInt oopAtPointer(char *ptr)			{ return (sqInt)(*((sqInt *)ptr)); }
84
  static inline sqInt oopAtPointerput(char *ptr, sqInt val)	{ return (sqInt)(*((sqInt *)ptr)= (sqInt)val); }
84
  static inline sqInt oopAtPointerput(char *ptr, sqInt val)	{ return (sqInt)(*((sqInt *)ptr)= (sqInt)val); }
85
  static inline char *pointerForOop(sqInt oop)			{ return sqMemoryBase + oop; }
85
  static inline char *pointerForOop(usqInt oop)			{ return sqMemoryBase + oop; }
86
  static inline sqInt oopForPointer(char *ptr)			{ return (sqInt)(ptr - sqMemoryBase); }
86
  static inline sqInt oopForPointer(char *ptr)			{ return (sqInt)(ptr - sqMemoryBase); }
87
  static inline sqInt byteAt(sqInt oop)				{ return byteAtPointer(pointerForOop(oop)); }
87
  static inline sqInt byteAt(sqInt oop)				{ return byteAtPointer(pointerForOop(oop)); }
88
  static inline sqInt byteAtput(sqInt oop, int val)		{ return byteAtPointerput(pointerForOop(oop), val); }
88
  static inline sqInt byteAtput(sqInt oop, int val)		{ return byteAtPointerput(pointerForOop(oop), val); }
Lines 106-113 Link Here
106
# define longAtPointerput(ptr, val)	((sqInt)(*((sqInt *)(ptr))= (sqInt)(val)))
106
# define longAtPointerput(ptr, val)	((sqInt)(*((sqInt *)(ptr))= (sqInt)(val)))
107
# define oopAtPointer(ptr)		(sqInt)(*((sqInt *)ptr))
107
# define oopAtPointer(ptr)		(sqInt)(*((sqInt *)ptr))
108
# define oopAtPointerput(ptr, val)	(sqInt)(*((sqInt *)ptr)= (sqInt)val)
108
# define oopAtPointerput(ptr, val)	(sqInt)(*((sqInt *)ptr)= (sqInt)val)
109
# define pointerForOop(oop)		((char *)(sqMemoryBase + (oop)))
109
# define pointerForOop(oop)		((char *)(sqMemoryBase + ((usqInt)(oop))))
110
# define oopForPointer(ptr)		((sqInt)(ptr))
110
# define oopForPointer(ptr)		((sqInt)(((char *)(ptr)) - (sqMemoryBase)))
111
# define byteAt(oop)			byteAtPointer(pointerForOop(oop))
111
# define byteAt(oop)			byteAtPointer(pointerForOop(oop))
112
# define byteAtput(oop, val)		byteAtPointerput(pointerForOop(oop), (val))
112
# define byteAtput(oop, val)		byteAtPointerput(pointerForOop(oop), (val))
113
# define shortAt(oop)			shortAtPointer(pointerForOop(oop))
113
# define shortAt(oop)			shortAtPointer(pointerForOop(oop))

Return to bug 196984