ICU-460 OS/390 related changes

X-SVN-Rev: 2079

icu4c/readme.html

@@ -631,6 +631,8 @@ important that you understand a few details:</p>
         <p>Examples for configuring ICU:<br>
         Debug build: <code>IEEE390=1 ./configure</code><br>
         Release build: <code>CFLAGS=-2 IEEE390=1 ./configure</code></p></li>
+    <li>Since the default make on OS/390 is not gmake, pkgdata tool requires that the environment
+        variable MAKE be set to path to gmake.</li> 
     <li>The makedep executable that is used with the OS/390 ICU build
         process is not shipped with ICU. It is available at the
         <a href="http://www.s390.ibm.com/products/oe/bpxa1ty2.html">OS/390 UNIX - Tools and Toys</a>

icu4c/source/common/unicode/ustring.h

@@ -291,7 +291,9 @@ u_unescape(const char *src,
  * pointer will be whatever is passed into u_unescapeAt().
  * @see u_unescapeAt
  */
+U_CDECL_BEGIN
 typedef UChar (*UNESCAPE_CHAR_AT)(int32_t offset, void *context);
+U_CDECL_END
 
 /**
  * Unescape a single sequence. The character at offset-1 is assumed

icu4c/source/common/unistr.cpp

@@ -448,7 +448,7 @@ UnicodeString UnicodeString::unescape() const {
 }
 
 // u_unescapeAt() callback to get a UChar from a UnicodeString
-static UChar _charAt(int32_t offset, void *context) {
+U_CFUNC UChar _charAt(int32_t offset, void *context) {
     return ((UnicodeString*) context)->charAt(offset);
 }
 

icu4c/source/test/cintltst/putiltst.c

@@ -106,8 +106,11 @@ void TestPUtilAPI(){
 
     log_verbose("Testing the API uprv_log10()\n");
     doAssert(uprv_log10(3456), 3, "uprv_log10(3456) failed.");
+#ifdef OS390
+    doAssert(uprv_log10(1.0e55), 55, "uprv_log10(1.0e55) failed.");
+#else
     doAssert(uprv_log10(1.0e300), 300, "uprv_log10(1.0e300) failed.");
-          
+#endif          
     log_verbose("Testing the API uprv_isNegativeInfinity()\n");
     isTrue=uprv_isNegativeInfinity(uprv_getInfinity() * -1);
     if(isTrue != TRUE){
@@ -256,7 +259,11 @@ void TestPUtilAPI(){
     log_verbose("Testing uprv_nextDouble() where the value is NaN ...\n");
     expn1=uprv_nextDouble(uprv_getNaN(), TRUE);
     doAssert(expn1, uprv_getNaN(), "uprv_nextDouble(uprv_getNaN(), TRUE) failed.");
+#ifdef OS390
+    y1=4.9406564584125e-78;
+#else
     y1=4.9406564584125e-324;
+#endif
     doAssert(uprv_nextDouble(0, TRUE),   y1, "uprv_nextDouble(0, TRUE) failed.");
     doAssert(uprv_nextDouble(0, FALSE), -y1, "uprv_nextDouble(0, FALSE) failed.");
        

icu4c/source/tools/icupkg.inc.in

@@ -89,6 +89,10 @@ LPATHS=../../source/common:../../source/i18n:../../source/tools/toolutil
 
 TOOL=env LD_LIBRARY_PATH=$(LPATHS) LIBPATH=$(LPATHS) 
 
+ifeq ($(strip $(PLATFORM)),OS390)
+  TOOL=
+endif
+
 ifeq ($(strip $(PLATFORM)),AIX)
   TOOL=env LIBPATH=$(LPATHS)
 endif