Fixes issues/warnings in bug 193327.

scheme/last-revision

@@ -1 +1 @@
-1413
+1414

src/ikarus-collect.c

@@ -1044,7 +1044,7 @@ add_object_proc(gc_t* gc, ikptr x)
       /* real vector */
       //fprintf(stderr, "X=0x%08x, FST=0x%08x\n", (int)x, (int)fst);
       ikptr size = fst;
-      assert(size >= 0);
+      assert(((long)size) >= 0);
       ikptr memreq = align(size + disp_vector_data);
       if(memreq >= pagesize){
         if((t & large_object_mask) == large_object_tag){
@@ -1654,7 +1654,7 @@ scan_dirty_code_page(gc_t* gc, long int page_idx, unsigned int mask){
       segment_vec = gc->segment_vector;
       ikptr rvec = ref(p, disp_code_reloc_vector);
       ikptr len = ref(rvec, off_vector_length);
-      assert(len >= 0);
+      assert(((long)len) >= 0);
       long int i;
       unsigned long int code_d = segment_vec[page_index(rvec)];
       for(i=0; i<len; i+=wordsize){

src/ikarus-fasl.c

@@ -289,7 +289,7 @@ static ikptr do_read(ikpcb* pcb, fasl_port* p){
     ref(code, disp_code_code_size) = fix(code_size);
     ref(code, disp_code_freevars) = freevars;
     ref(code, disp_code_annotation) = annotation;
-    fasl_read_buf(p, (void*)(long)code+disp_code_data, code_size);
+    fasl_read_buf(p, (void*)(disp_code_data+(long)code), code_size);
     if(put_mark_index){
       p->marks[put_mark_index] = code+vector_tag;
     }

src/ikarus-runtime.c

@@ -985,4 +985,4 @@ ikptr
 ikrt_debug(ikptr x){
   fprintf(stderr, "DEBUG 0x%016lx\n", (long int)x);
   return 0;
-};
+}