Merge recent summer changes.

Author: dvanhorn

README.md

@@ -6,7 +6,7 @@ University of Maryland, College Park.
 
 The current instance of this course is:
 
-* http://www.cs.umd.edu/class/spring2023/cmsc430/
+* http://www.cs.umd.edu/class/summer2023/cmsc430/
 
 Copyright © David Van Horn and José Manuel Calderón Trilla and Leonidas Lampropoulos
 

langs/a86/ast.rkt

@@ -322,6 +322,7 @@
     (check-unique-label-decls p)
     (check-label-targets-declared p)
     (check-has-initial-label p)
+    (check-initial-label-global p)
     ;; anything else?
     p))
 
@@ -388,6 +389,13 @@
   (unless (findf Label? asm)
     (error 'prog "no initial label found")))
 
+;; Asm -> Void
+(define (check-initial-label-global asm)
+  (match (findf Label? asm)
+    [(Label init)
+     (unless (member init (map (lambda (i) (match i [(Global l) l]))
+                               (filter Global? asm)))
+       (error 'prog "initial label undeclared as global: ~v" init))]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Symbol to Label

langs/a86/test/errors.rkt

@@ -20,3 +20,12 @@
 (check-not-exn       (thunk (Add 'rax (sub1 (expt 2 32)))))
 (check-exn exn:fail? (thunk (Sub 'rax (expt 2 32))))
 (check-not-exn       (thunk (Sub 'rax (sub1 (expt 2 32)))))
+
+;; Check prog
+(check-exn exn:fail? (thunk (prog (Ret))))
+(check-exn exn:fail? (thunk (prog (Label 'start) (Ret))))
+(check-exn exn:fail? (thunk (prog (Global 'foo) (Label 'start) (Label 'foo) (Ret))))
+(check-not-exn       (thunk (prog (Global 'start) (Label 'start) (Ret))))
+(check-not-exn       (thunk (prog (Label 'start) (Ret) (Global 'start))))
+
+

langs/abscond/Makefile

@@ -17,7 +17,7 @@ default: submit.zip
 submit.zip:
 	zip submit.zip -r * \
 		-x \*.[os] -x \*~ -x \*zip \
-		-x \*Zone.Identifier -x **compiled**
+		-x \*Zone.Identifier -x \*\*compiled\*\*
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o

langs/blackmail/Makefile

@@ -17,7 +17,7 @@ default: submit.zip
 submit.zip:
 	zip submit.zip -r * \
 		-x \*.[os] -x \*~ -x \*zip \
-		-x \*Zone.Identifier -x **compiled**
+		-x \*Zone.Identifier -x \*\*compiled\*\*
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o

langs/con/Makefile

@@ -17,7 +17,7 @@ default: submit.zip
 submit.zip:
 	zip submit.zip -r * \
 		-x \*.[os] -x \*~ -x \*zip \
-		-x \*Zone.Identifier -x **compiled**
+		-x \*Zone.Identifier -x \*\*compiled\*\*
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o

langs/dodger/Makefile

@@ -13,7 +13,12 @@ objs = \
 	print.o \
 	values.o
 
-default: runtime.o
+default: submit.zip
+
+submit.zip:
+	zip submit.zip -r * \
+		-x \*.[os] -x \*~ -x \*zip \
+		-x \*Zone.Identifier -x \*\*compiled\*\*
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o

langs/dupe/Makefile

@@ -18,7 +18,7 @@ default: submit.zip
 submit.zip:
 	zip submit.zip -r * \
 		-x \*.[os] -x \*~ -x \*zip \
-		-x \*Zone.Identifier -x **compiled**
+		-x \*Zone.Identifier -x \*\*compiled\*\*
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o

langs/evildoer/Makefile

@@ -19,7 +19,7 @@ default: submit.zip
 submit.zip:
 	zip submit.zip -r * \
 		-x \*.[os] -x \*~ -x \*zip \
-		-x \*Zone.Identifier -x **compiled**
+		-x \*Zone.Identifier -x \*\*compiled\*\*
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o

langs/fraud/Makefile

@@ -19,7 +19,7 @@ default: submit.zip
 submit.zip:
 	zip submit.zip -r * \
 		-x \*.[os] -x \*~ -x \*zip \
-		-x \*Zone.Identifier -x **compiled**
+		-x \*Zone.Identifier -x \*\*compiled\*\*
 
 runtime.o: $(objs)
 	ld -r $(objs) -o runtime.o