From: sof <unknown>
Date: Sun, 18 May 1997 03:56:47 +0000 (+0000)
Subject: [project @ 1997-05-18 03:56:47 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~695
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=58a980f73d339b0a8564d661fce5e791236030a2;p=ghc-hetmet.git

[project @ 1997-05-18 03:56:47 by sof]
2.03 update
---

diff --git a/ghc/runtime/main/StgStartup.lhc b/ghc/runtime/main/StgStartup.lhc
index 0b74e37..061a0c0 100644
--- a/ghc/runtime/main/StgStartup.lhc
+++ b/ghc/runtime/main/StgStartup.lhc
@@ -108,7 +108,7 @@ now - worth putting them in a file by themselves?? [ADR] */
 
 #if !defined(PAR) /* && !defined(GRAN) */
 
-/* Ditto for Foreign Objectr entry point and info tables. [ADR]
+/* Ditto for Foreign Object entry point and info tables. [ADR]
 
    BTW Will, I copied most of this blindly from above - what's with
    this TAG stuff? And what kind of description/ type is wanted here?
@@ -124,7 +124,7 @@ STATICFUN(ForeignObj_entry)
     FE_
 }
 
-ForeignObj_ITBL(ForeignObj_info,ForeignObj_entry,UpdErr,0,INFO_OTHER_TAG,,,const,EF_,ForeignObj_K,"FOREIGN OBJ","ForeignObj");
+ForeignObj_ITBL(ForeignObj_info,ForeignObj_entry,UpdErr,0,INFO_OTHER_TAG,,,const,EF_,ForeignObj_K,"FOREIGN_OBJ","ForeignObj");
 
 /* End of ForeignObj stuff */
 
@@ -145,7 +145,7 @@ STATICFUN(UnusedSP_entry)
     FE_
 }
 
-STATIC_ITBL(UnusedSP_info,UnusedSP_entry,UpdErr,0,INFO_OTHER_TAG,0,0,const,IF_,CON_K,"UNUSED STABLE PTR","USP");
+STATIC_ITBL(UnusedSP_info,UnusedSP_entry,UpdErr,0,INFO_OTHER_TAG,0,0,const,IF_,CON_K,"UNUSED_STABLE_PTR","USP");
 
 SET_STATIC_HDR(UnusedSP_closure,UnusedSP_info,CC_SUBSUMED,,ED_RO_)
 };