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

another simplification suggested by scan-build

Browse Source
This commit is contained in:
Matthew Flatt 2020-05-10 06:59:50 -06:00
parent 812107f015
commit e301d3061d
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/src/foreign/foreign.c
View File

@ -2725,7 +2725,6 @@ static Scheme_Object *foreign_malloc(int argc, Scheme_Object *argv[])
Scheme_Object *mode = NULL, *a, *base = NULL; Scheme_Object *mode = NULL, *a, *base = NULL;
Scheme_Malloc_Proc mf; Scheme_Malloc_Proc mf;
for (i=0; i<argc; i++) { for (i=0; i<argc; i++) {
a = argv[i];
a = unwrap_cpointer_property(argv[i]); a = unwrap_cpointer_property(argv[i]);
if (SCHEME_INTP(a)) { if (SCHEME_INTP(a)) {
if (num != -1) if (num != -1)

1
racket/src/foreign/foreign.rktc
View File

@ -1960,7 +1960,6 @@ static Scheme_Malloc_Proc ctype_allocator(Scheme_Object *type)
Scheme_Object *mode = NULL, *a, *base = NULL; Scheme_Object *mode = NULL, *a, *base = NULL;
Scheme_Malloc_Proc mf; Scheme_Malloc_Proc mf;
for (i=0; i<argc; i++) { for (i=0; i<argc; i++) {
a = argv[i];
a = unwrap_cpointer_property(argv[i]); a = unwrap_cpointer_property(argv[i]);
if (SCHEME_INTP(a)) { if (SCHEME_INTP(a)) {
if (num != -1) if (num != -1)