From 08b93c8312e9742fb389a74beec233f72c9b249d Mon Sep 17 00:00:00 2001
From: Gavin Matthews <grm@ravenbrook.com>
Date: Thu, 22 Jan 1998 16:33:15 +0000
Subject: [PATCH] Fix for strtoul in sunos

Copied from Perforce
 Change: 19266
 ServerID: perforce.ravenbrook.com
---
 mps/src/ossu.h | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mps/src/ossu.h b/mps/src/ossu.h
index 036fac62fc4..d390a41c65d 100644
--- a/mps/src/ossu.h
+++ b/mps/src/ossu.h
@@ -1,6 +1,6 @@
 /*  ==== SUNOS ANSI COMPATABILITY HEADER ====
  *
- *  $HopeName: MMsrc!ossu.h(trunk.7) $
+ *  $HopeName: MMsrc!ossu.h(trunk.8) $
  *
  *  Copyright (C) 1994,1995,1997 Harlequin Group, all rights reserved
  *
@@ -76,6 +76,8 @@ extern int system(const char *string);
 extern long strtol(const char *, char **, int);
 #define EXIT_FAILURE 1
 #define EXIT_SUCCESS 0
+/* @@@@ This doesn't do quite the right thing, but will get by */
+#define strtoul(a,b,c) (unsigned long)strtol((a), (b), (c))
 
 /* string.h things */