Further reduction of interface puns that violate the strict aliasing rule, this time in thread function types and the corresponding threadstruct.

Copied from Perforce
 Change: 179451
 ServerID: perforce.ravenbrook.com

1 files changed, 4 insertions, 4 deletions

diff --git a/mps/code/root.c b/mps/code/root.c
index 9ce385a124c..c94217c04ad 100644
--- a/mps/code/root.c
+++ b/mps/code/root.c
@@ -33,7 +33,7 @@ typedef struct RootStruct {
   RootVar var;                  /* union discriminator */
   union RootUnion {
     struct {
-      RootScanMethod scan;      /* the function which does the scanning */
+      mps_root_scan_t scan;     /* the function which does the scanning */
       void *p;                  /* environment for scan */
       size_t s;                 /* environment for scan */
     } fun;
@@ -47,7 +47,7 @@ typedef struct RootStruct {
       Word mask;                /* tag mask for scanning */
     } tableMasked;
     struct {
-      RootScanRegMethod scan;   /* function for scanning registers */
+      mps_reg_scan_t scan;      /* function for scanning registers */
       Thread thread;            /* passed to scan */
       void *p;                  /* passed to scan */
       size_t s;                 /* passed to scan */
@@ -296,7 +296,7 @@ Res RootCreateTableMasked(Root *rootReturn, Arena arena,
 
 Res RootCreateReg(Root *rootReturn, Arena arena,
                   Rank rank, Thread thread,
-                  RootScanRegMethod scan, void *p, size_t s)
+                  mps_reg_scan_t scan, void *p, size_t s)
 {
   union RootUnion theUnion;
 
@@ -336,7 +336,7 @@ Res RootCreateFmt(Root *rootReturn, Arena arena,
 }
 
 Res RootCreateFun(Root *rootReturn, Arena arena, Rank rank,
-                  RootScanMethod scan, void *p, size_t s)
+                  mps_root_scan_t scan, void *p, size_t s)
 {
   union RootUnion theUnion;