2011-06-21 12:16 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbmzip/tests/myzip.prg
  * contrib/hbmzip/tests/myunzip.prg
    ! use MAIN() as entry point to make some platforms happy

harbour/ChangeLog

@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-06-21 12:16 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbmzip/tests/myzip.prg
+  * contrib/hbmzip/tests/myunzip.prg
+    ! use MAIN() as entry point to make some platforms happy
+
 2011-06-19 17:09 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/hbqt/qtcore/qth/QStringList.qth
     ! Commented out: duplicate ( from Harbour's POW ) function

harbour/contrib/hbmzip/tests/myunzip.prg

@@ -50,9 +50,7 @@
  *
  */
 
-
-
-PROC MyUnzip( ... )
+PROCEDURE Main( ... )
    LOCAL hUnzip, aWild, cFileName, cExt, cPath, cFile, ;
          dDate, cTime, nSize, nCompSize, nErr, ;
          lCrypted, cPassword, cComment, tmp
@@ -113,4 +111,5 @@ PROC MyUnzip( ... )
       ENDDO
       HB_UNZIPCLOSE( hUnzip )
    ENDIF
-RETURN
+
+   RETURN

harbour/contrib/hbmzip/tests/myzip.prg

@@ -50,9 +50,7 @@
  *
  */
 
-
-
-PROC MyZip( ... )
+PROCEDURE Main( ... )
    LOCAL hZip, aDir, aFile, aWild, ;
          cZipName, cPath, cFileName, cExt, cWild, cPassword, cComment,;
          tmp
@@ -104,4 +102,5 @@ PROC MyZip( ... )
       NEXT
       HB_ZIPCLOSE( hZip, cComment )
    ENDIF
-RETURN
+
+   RETURN