X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcoreparse.c;h=57639ecd9800a1474bff43eecbcd3603e158c6ee;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=dd74c749959bbcc8c0965d4fe758dec2d03cd849;hpb=79cc569a97e444389350ea3f5b1017374fe16bec;p=sbcl.git

diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index dd74c74..57639ec 100644
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -182,7 +182,7 @@ load_core_file(char *file)
 
                 FSHOW((stderr, "build_id[]=\"%s\"\n", build_id));
                 FSHOW((stderr, "remaining_len = %d\n", remaining_len));
-                if (remaining_len != strlen(build_id))
+                if (remaining_len != strlen((const char *)build_id))
                     goto losing_build_id;
                 for (i = 0; i < remaining_len; ++i) {
                     FSHOW((stderr, "ptr[%d] = char = %d, expected=%d\n",