X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fvars.c;h=03b8ec256f11805515bda14b4ffc753d1405c3e7;hb=6ddc6bb305b4f218780d4b2c9a2ac3584a85f94a;hp=39f065bb59d9ab6118427e0f85744f16ea3d58a1;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git diff --git a/src/runtime/vars.c b/src/runtime/vars.c index 39f065b..03b8ec2 100644 --- a/src/runtime/vars.c +++ b/src/runtime/vars.c @@ -10,9 +10,11 @@ */ #include +#include #include #include +#include "sbcl.h" #include "runtime.h" #include "vars.h" #include "os.h" @@ -72,8 +74,8 @@ void flush_vars() free(var); } } - bzero(NameHash, sizeof(NameHash)); - bzero(ObjHash, sizeof(ObjHash)); + memset(NameHash, 0, sizeof(NameHash)); + memset(ObjHash, 0, sizeof(ObjHash)); tempcntr = 1; for (var = perm; var != NULL; var = next) { @@ -153,7 +155,7 @@ struct var *define_var(char *name, lispobj obj, boolean perm) } struct var *define_dynamic_var(char *name, lispobj updatefn(struct var *), - boolean perm) + boolean perm) { struct var *var = make_var(name, perm);