cs: fix problem getting structure hash codes

pkgs/racket-test-core/tests/racket/chaperone.rktl

@@ -3597,6 +3597,22 @@
   (test #f hash-ref-key ht1 "absent" #f)
   (err/rt-test (hash-ref-key ht2 "absent") exn:fail:contract?))
 
+
+;; ----------------------------------------
+;; regression test to make sure a hash-code function
+;; is inherited for a chaperoned struct
+
+(let ()
+  (struct a ()
+    #:property prop:equal+hash (list
+                                (lambda (a b eql?) #t)
+                                (lambda (a hc) 1)
+                                (lambda (a hc) 1)))
+
+  (struct b a (x))
+
+  (test #t integer? (equal-hash-code (chaperone-struct (b 0) b-x (lambda (b v) v)))))
+
 ;; ----------------------------------------
 
 (report-errs)

racket/src/cs/compile-file.ss

@@ -56,7 +56,7 @@
            (loop args))]
      [(get-opt args "--srcloc" 0)
       => (lambda (args)
-           (generate-procedure-source-information #f)
+           (generate-procedure-source-information #t)
            (loop args))]
      [(get-opt args "--unsafe" 0)
       => (lambda (args)

racket/src/cs/rumble/impersonator.ss

@@ -675,9 +675,8 @@
 (define (set-impersonator-hash!)
   (let ([struct-impersonator-hash-code
          (escapes-ok
-           (lambda (c hash-code)
-             ((record-type-hash-procedure
-               (record-rtd (impersonator-val c)))
+          (lambda (c hash-code)
+             ((record-hash-procedure (impersonator-val c))
               c
               hash-code)))])
     (let ([add (lambda (rtd)