/[cmucl]/src/lisp/sunos-os.c
ViewVC logotype

Diff of /src/lisp/sunos-os.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ram, Tue Oct 25 00:19:13 1994 UTC revision 1.4 by dtc, Wed Feb 19 05:41:22 1997 UTC
# Line 623  os_vm_size_t length; Line 623  os_vm_size_t length;
623          if (kr != KERN_SUCCESS)          if (kr != KERN_SUCCESS)
624                  mach_error("Could not flush the instruction cache", kr);                  mach_error("Could not flush the instruction cache", kr);
625  #endif  #endif
626    #ifdef SOLARIS /* also SunOS ?? */
627            static int flushit = -1;
628            /*
629             * On some systems, iflush needs to be emulated in the kernel
630             * On those systems, it isn't necessary
631             * Call getenv() only once.
632             */
633            if (flushit == -1)
634                    flushit = getenv("CMUCL_NO_SPARC_IFLUSH") == 0;
635    
636            if (flushit) {
637                    static int traceit = -1;
638                    if (traceit == -1)
639                            traceit = getenv("CMUCL_TRACE_SPARC_IFLUSH") != 0;
640    
641                    if (traceit)
642                            fprintf(stderr,";;;iflush %p - %x\n", address,length);
643                    flush_icache(address,length);
644            }
645    #endif
646  }  }
647    
648  void os_protect(addr, len, prot)  void os_protect(addr, len, prot)
# Line 843  char * dlerror(void) { return "no dynami Line 863  char * dlerror(void) { return "no dynami
863    
864  /* For now we put in some porting functions */  /* For now we put in some porting functions */
865    
866    #ifndef SOLARIS25
867  int  int
868  getdtablesize(void)  getdtablesize(void)
869  {  {
# Line 926  killpg(int pgrp, int sig) Line 947  killpg(int pgrp, int sig)
947      }      }
948      return kill(-pgrp, sig);      return kill(-pgrp, sig);
949  }  }
950    #endif
951    
952  int  int
953  sigblock(int mask)  sigblock(int mask)
# Line 940  sigblock(int mask) Line 962  sigblock(int mask)
962      return old.__sigbits[0];      return old.__sigbits[0];
963  }  }
964    
965    #ifndef SOLARIS25
966  int  int
967  wait3(int *status, int options, struct rusage *rp)  wait3(int *status, int options, struct rusage *rp)
968  {  {
# Line 947  wait3(int *status, int options, struct r Line 970  wait3(int *status, int options, struct r
970          memset(rp, 0, sizeof(struct rusage));          memset(rp, 0, sizeof(struct rusage));
971      return waitpid(-1, status, options);      return waitpid(-1, status, options);
972  }  }
973    #endif
974    
975  int  int
976  sigsetmask(int mask)  sigsetmask(int mask)
# Line 961  sigsetmask(int mask) Line 985  sigsetmask(int mask)
985      return old.__sigbits[0];      return old.__sigbits[0];
986    
987  }  }
988    
989    /* This is a hack to get tzname defined in the executable. Putting
990       tzname in undefineds.h doesn't do it on Solaris systems. */
991    char*
992    hack_to_get_tzname()
993    {
994        return tzname[0];
995    }
996  #endif /* SOLARIS */  #endif /* SOLARIS */

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5