Re:_FINAL_ release MiNTlib PL48

[Christian Felsch <felsch@tu-harburg.de>]

Hi Yves!

I have another patch (this time for Pure :-)

I had to do this changes for compiling the new lib with PureC.
What's about the new assembler bindings for mintbind.s? Are they OK?

 Chris.


--- orig\timeoday.c Mon May 25 20:32:30 1998
+++ lib\timeoday.c  Mon May 25 20:30:48 1998
@@ -52,7 +52,7 @@
 }
 
 #ifdef HAS_SSYSTEM
-clock_t getticks()
+clock_t getticks(void)
 {
    if (Ssystem(-1, NULL, NULL))
        return (clock_t)Supexec(getnow);
@@ -64,8 +64,7 @@
 #endif
 
 static void
-tvadd (tv1, tv2)
-   struct timeval *tv1, *tv2;
+tvadd (struct timeval *tv1, struct timeval *tv2)
 {
    tv1->tv_usec += tv2->tv_usec;
    if ((unsigned long)tv1->tv_usec >= 1000000L) {

--- orig/include/mintbind.h Mon May 11 19:28:06 1998
+++ include/mintbind.h  Mon May 25 20:22:38 1998
@@ -97,7 +97,12 @@
 void Shutdown( long restart );         /* GEMDOS 0x151 */
 char *Dreadlabel( char *path, char *label, short maxlen );     /*
GEMDOS 0x152 */
 char *Dwritelabel( char *path, char *label);       /* GEMDOS 0x153 */
-
+long Ssystem(short mode, long arg1, long arg2);    /* GEMDOS 0x154 */
+#define Ssystem(mode, arg1, arg2) \
+   Ssystem(mode, (long)(arg1), (long)(arg2))
+long Tgettimeofday(long tvp, long tzp);            /* GEMDOS 0x155 */
+#define Tgettimeofday(tvp, tzp) \
+   Tgettimeofday((long)tvp, (long)tzp)
 
 #else /* !__TURBOC__ */
 
--- orig\purec\mintbind.s   Thu Jan 29 07:18:48 1998
+++ lib\purec\mintbind.s    Mon May 25 20:27:30 1998
@@ -23,7 +23,8 @@
 ;/* The following are not yet official... */
    .EXPORT Tmalarm, Psigintr, Suptime, Dxreaddir, Pseteuid,Psetegid
    .EXPORT Psetauid, Pgetauid, Pgetgroups, Psetgroups, Tsetitimer
-   .EXPORT Scookie, Psetreuid, Psetregid, Sync, Shutdown, Dreadlabel,
Dwritelabel
+   .EXPORT Psetreuid, Psetregid, Sync, Shutdown, Dreadlabel,
Dwritelabel, 
+   .EXPORT Ssystem, Tgettimeofday
 
    
 *
@@ -460,12 +461,6 @@
    
    .ENDMOD
 
-.MODULE Scookie:
-   SYS_WL  GEMDOS,#$14a,d0,a0
-   rts
-   
-   .ENDMOD
-
 .MODULE Psetreuid:
    SYS_WW  GEMDOS,#$14e,d0,d1
    rts
@@ -502,3 +497,14 @@
    
    .ENDMOD
 
+.MODULE Ssystem:
+   SYS_WLL GEMDOS,#$154,d0,d1,d2
+   rts
+
+   .ENDMOD
+
+.MODULE Tgettimeofday:
+   SYS_LL GEMDOS,#$155,a0,a1
+   rts
+   
+   .ENDMOD

 
------------------------------------------------------------------------
 Christian Felsch   email: felsch@tu-harburg.de         (Big mails, uue)
 Bevenser Weg 18           christian_felsch@hh.maus.de  (Mails < 16K)
 21079 Hamburg
 Germany            WWW  : http://www.tu-harburg.de/~smcf1605/   
------------------------------------------------------------------------