code review 4633043: 8l/ld: Further adjustments for a port of Go to Plan 9 n...

src/cmd/8l/span.c

 // Inferno utils/8l/span.c
 // http://code.google.com/p/inferno-os/source/browse/utils/8l/span.c
 //
 //      Copyright © 1994-1999 Lucent Technologies Inc.  All rights reserved.
 //      Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
 //      Portions Copyright © 1997-1999 Vita Nuova Limited
 //      Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
 //      Portions Copyright © 2004,2006 Bruce Ellis
 //      Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
 //      Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
@@ skipping 71 matching lines @@
                                         if(v > 127) {
                                                 loop++;
                                                 q->back ^= 2;
                                         }
                                         s->p[q->pc+1] = v;
                                 } else {
                                         bp = s->p + q->pc + q->mark - 4;
                                         *bp++ = v;
                                         *bp++ = v>>8;
                                         *bp++ = v>>16;
-                                        *bp++ = v>>24;
+                                        *bp = v>>24;
                                 }·······
                         }
                         p->comefrom = P;
 
                         asmins(p);
                         p->pc = c;
                         m = andptr-and;
                         symgrow(s, p->pc+m);
                         memmove(s->p+p->pc, and, m);
                         p->mark = m;
@@ skipping 1209 matching lines @@
                 break;
         }
 }
 
 void
 asmins(Prog *p)
 {
         andptr = and;
         doasm(p);
         if(andptr > and+sizeof and) {
-                print("and[] is too short - %d byte instruction\n", andptr - and);
+                print("and[] is too short - %ld byte instruction\n", andptr - and);
                 errorexit();
         }
 }