fix other comment terminator in .ssc, reflow comment

svn: r14163
This commit is contained in:
Eli Barzilay 2009-03-17 22:41:13 +00:00
parent 0ed8d251bf
commit d39ff7e079
2 changed files with 8 additions and 8 deletions

View File

@ -2138,8 +2138,8 @@ static Scheme_Object *abs_sym;
/* (ptr-ref cpointer type [['abs] n]) -> the object at the given location */ /* (ptr-ref cpointer type [['abs] n]) -> the object at the given location */
/* n defaults to 0 which is the only value that should be used with ffi_objs */ /* n defaults to 0 which is the only value that should be used with ffi_objs */
/* if n is given, an 'abs flag can precede it to make n be a byte offset rather */ /* if n is given, an 'abs flag can precede it to make n be a byte offset */
/* than some multiple of sizeof(type). */ /* rather than some multiple of sizeof(type). */
/* WARNING: there are *NO* checks at all, this is raw C level code. */ /* WARNING: there are *NO* checks at all, this is raw C level code. */
#define MYNAME "ptr-ref" #define MYNAME "ptr-ref"
static Scheme_Object *foreign_ptr_ref(int argc, Scheme_Object *argv[]) static Scheme_Object *foreign_ptr_ref(int argc, Scheme_Object *argv[])
@ -2191,8 +2191,8 @@ static Scheme_Object *foreign_ptr_ref(int argc, Scheme_Object *argv[])
/* (ptr-set! cpointer type [['abs] n] value) -> void */ /* (ptr-set! cpointer type [['abs] n] value) -> void */
/* n defaults to 0 which is the only value that should be used with ffi_objs */ /* n defaults to 0 which is the only value that should be used with ffi_objs */
/* if n is given, an 'abs flag can precede it to make n be a byte offset rather */ /* if n is given, an 'abs flag can precede it to make n be a byte offset */
/* than some multiple of sizeof(type). */ /* rather than some multiple of sizeof(type). */
/* WARNING: there are *NO* checks at all, this is raw C level code. */ /* WARNING: there are *NO* checks at all, this is raw C level code. */
#define MYNAME "ptr-set!" #define MYNAME "ptr-set!"
static Scheme_Object *foreign_ptr_set_bang(int argc, Scheme_Object *argv[]) static Scheme_Object *foreign_ptr_set_bang(int argc, Scheme_Object *argv[])

View File

@ -1553,8 +1553,8 @@ static Scheme_Object *do_memop(const char *who, int mode,
/* (ptr-ref cpointer type [['abs] n]) -> the object at the given location */ /* (ptr-ref cpointer type [['abs] n]) -> the object at the given location */
/* n defaults to 0 which is the only value that should be used with ffi_objs */ /* n defaults to 0 which is the only value that should be used with ffi_objs */
/* if n is given, an 'abs flag can precede it to make n be a byte offset rather */ /* if n is given, an 'abs flag can precede it to make n be a byte offset */
/* than some multiple of sizeof(type). */ /* rather than some multiple of sizeof(type). */
/* WARNING: there are *NO* checks at all, this is raw C level code. */ /* WARNING: there are *NO* checks at all, this is raw C level code. */
@cdefine[ptr-ref 2 4]{ @cdefine[ptr-ref 2 4]{
int size=0; void *ptr; Scheme_Object *base; int size=0; void *ptr; Scheme_Object *base;
@ -1603,8 +1603,8 @@ static Scheme_Object *do_memop(const char *who, int mode,
/* (ptr-set! cpointer type [['abs] n] value) -> void */ /* (ptr-set! cpointer type [['abs] n] value) -> void */
/* n defaults to 0 which is the only value that should be used with ffi_objs */ /* n defaults to 0 which is the only value that should be used with ffi_objs */
/* if n is given, an 'abs flag can precede it to make n be a byte offset rather /* if n is given, an 'abs flag can precede it to make n be a byte offset */
/* than some multiple of sizeof(type). */ /* rather than some multiple of sizeof(type). */
/* WARNING: there are *NO* checks at all, this is raw C level code. */ /* WARNING: there are *NO* checks at all, this is raw C level code. */
@cdefine[ptr-set! 3 5]{ @cdefine[ptr-set! 3 5]{
int size=0; void *ptr; int size=0; void *ptr;