0.9.3.27
authorGabor Melis <mega@hotpop.com>
Thu, 4 Aug 2005 12:48:20 +0000 (12:48 +0000)
committerGabor Melis <mega@hotpop.com>
Thu, 4 Aug 2005 12:48:20 +0000 (12:48 +0000)
  * don't use stdint.h as solaris 9 and freebsd 4 object
  * killed two warnings introduced in purify.c

src/runtime/interrupt.c
src/runtime/purify.c
version.lisp-expr

index e734ea1..1fa2547 100644 (file)
@@ -43,7 +43,6 @@
 
 #include <stdio.h>
 #include <stdlib.h>
-#include <stdint.h>
 #include <string.h>
 #include <signal.h>
 #include <sys/types.h>
@@ -741,10 +740,10 @@ void arrange_return_to_lisp_function(os_context_t *context, lispobj function)
      * must obviously exist in reality.  That would be post_signal_tramp
      */
 
-    uint32_t *sp=(uint32_t *)*os_context_register_addr(context,reg_ESP);
+    u32 *sp=(u32 *)*os_context_register_addr(context,reg_ESP);
 
     /* return address for call_into_lisp: */
-    *(sp-15) = (uint32_t)post_signal_tramp;
+    *(sp-15) = (u32)post_signal_tramp;
     *(sp-14) = function;        /* args for call_into_lisp : function*/
     *(sp-13) = 0;               /*                           arg array */
     *(sp-12) = 0;               /*                           no. args */
@@ -765,9 +764,9 @@ void arrange_return_to_lisp_function(os_context_t *context, lispobj function)
     *(sp-1)=*os_context_pc_addr(context);
 
 #elif defined(LISP_FEATURE_X86_64)
-    uint64_t *sp=(uint64_t *)*os_context_register_addr(context,reg_RSP);
+    u64 *sp=(u64 *)*os_context_register_addr(context,reg_RSP);
     /* return address for call_into_lisp: */
-    *(sp-18) = (uint64_t)post_signal_tramp;
+    *(sp-18) = (u64)post_signal_tramp;
 
     *(sp-17)=*os_context_register_addr(context,reg_R15);
     *(sp-16)=*os_context_register_addr(context,reg_R14);
index 5e86276..ca850dd 100644 (file)
@@ -127,13 +127,13 @@ newspace_alloc(long nwords, int constantp)
     lispobj *ret;
     nwords=CEILING(nwords,2);
     if(constantp) {
-        if(read_only_free + nwords >= READ_ONLY_SPACE_END) {
+        if(read_only_free + nwords >= (lispobj *)READ_ONLY_SPACE_END) {
             lose("Ran out of read-only space while purifying!");
         }
         ret=read_only_free;
         read_only_free+=nwords;
     } else {
-        if(static_free + nwords >= STATIC_SPACE_END) {
+        if(static_free + nwords >= (lispobj *)STATIC_SPACE_END) {
             lose("Ran out of static space while purifying!");
         }
         ret=static_free;
index 6fe64ba..641138d 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.3.26"
+"0.9.3.27"