rv32: simple initial file in build-order

csrhodes · csrhodes · commit f681d671dd96 · 2018-08-01T14:30:57.000+01:00
to help discover what doesn't work
diff --git a/build-order.lisp-expr b/build-order.lisp-expr
@@ -35,6 +35,7 @@
 
 #-warm-build-phase
 (
+ ("src/code/scratch" :not-host :trace-file)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; miscellaneous
  ;; This comes as early as possible, so that we catch the source locations
diff --git a/src/code/scratch.lisp b/src/code/scratch.lisp
@@ -0,0 +1,3 @@
+(defun foo (x)
+  (declare (type (simple-array fixnum (*)) x))
+  (aref x 1))

Original file line number	Diff line number	Diff line change
`@@ -35,6 +35,7 @@`
`35`	`35`
`36`	`36`	`#-warm-build-phase`
`37`	`37`	`(`
	`38`	`+ ("src/code/scratch" :not-host :trace-file)`
`38`	`39`	`;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;`
`39`	`40`	`;;; miscellaneous`
`40`	`41`	`;; This comes as early as possible, so that we catch the source locations`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+(defun foo (x)`
	`2`	`+ (declare (type (simple-array fixnum (*)) x))`
	`3`	`+ (aref x 1))`