Description: Export ioarea to bss section
Author: James Clarke <jrtc27@jrtc27.com>
Forwarded: https://github.com/polyml/polyml/pull/74
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- a/mlsource/MLCompiler/CodeTree/ByteCode/CODE_SEG.ML
+++ b/mlsource/MLCompiler/CodeTree/ByteCode/CODE_SEG.ML
@@ -195,7 +195,7 @@ struct
   end
 
   | csegCopySeg _ =
-    raise InternalError "csegCopySeg: can only copy between byte segements"
+    raise InternalError "csegCopySeg: can only copy between byte segments"
   
   (* Returns a value from the vector. *)
   fun csegGet (ref (_, addr), byteIndex : int) : Word8.word =
@@ -220,7 +220,7 @@ struct
   end;
        
   fun csegSet (ref (LockedCode, _), _, _) : unit =
-    raise InternalError "csegSet: can't change locked code segement"
+    raise InternalError "csegSet: can't change locked code segment"
    
     | csegSet (r as (ref (status, addr)), byteIndex:int, value:Word8.word) : unit =
   let
--- a/mlsource/MLCompiler/CodeTree/X86Code/CODE_ARRAY.ML
+++ b/mlsource/MLCompiler/CodeTree/X86Code/CODE_ARRAY.ML
@@ -131,7 +131,7 @@ struct
         else System_move_bytes(fromAddr, 0w0, toAddr, offsetBytes, lengthBytes)
     end
 
-    |   csegCopySeg _ = raise InternalError "csegCopySeg: can only copy between byte segements"
+    |   csegCopySeg _ = raise InternalError "csegCopySeg: can only copy between byte segments"
   
     (* Returns a value from the vector. *)
     fun csegGet (ref (_, addr), byteIndex : word) : Word8.word =
@@ -145,7 +145,7 @@ struct
     end
        
     fun csegSet (ref (LockedCode, _), _, _) : unit =
-        raise InternalError "csegSet: can't change locked code segement"
+        raise InternalError "csegSet: can't change locked code segment"
    
     |   csegSet (r as (ref (status, addr)), byteIndex, value:Word8.word) : unit =
         let
--- a/mlsource/MLCompiler/LEX_.ML
+++ b/mlsource/MLCompiler/LEX_.ML
@@ -457,7 +457,7 @@ struct
              else if isOperator c
                then parseIdent state isOperator (idVal ^ ".")
                  
-             else lexError(state, "invalid identifer - "^ idVal ^ "." ^ str c)
+             else lexError(state, "invalid identifier - "^ idVal ^ "." ^ str c)
         end
         else 
         (