suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix comment closer: merge to 4.1.5

Browse Source 
svn: r14159
This commit is contained in:
Matthew Flatt 2009-03-17 20:49:04 +00:00
parent 1919686876
commit e8dba7c7b1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/foreign/foreign.c
View File

@ -2138,7 +2138,7 @@ 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 rather */
/* than some multiple of sizeof(type). */ /* 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"
@ -2191,7 +2191,7 @@ 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 rather */
/* than some multiple of sizeof(type). */ /* 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!"

2
src/foreign/foreign.ssc
View File

@ -1553,7 +1553,7 @@ 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 rather */
/* than some multiple of sizeof(type). */ /* 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]{