truffle: src/os/aix/vm/os_aix.cpp comparison

comparison src/os/aix/vm/os_aix.cpp @ 14451:b858620b0081

8031319: PPC64: Some fixes in ppc and aix coding. Reviewed-by: kvn

author	goetz
date	Tue, 07 Jan 2014 17:24:59 +0100
parents	3068270ba476
children	a13badbb8b8e 9200402b42d5

comparison

equal deleted inserted replaced

-:c3efa8868779
+:b858620b0081
 // Return the real, user, and system times in seconds from an
 // arbitrary fixed point in the past.
 bool os::getTimesSecs(double* process_real_time,
 double* process_user_time,
 double* process_system_time) {
-Unimplemented();
+struct tms ticks;
-return false;
+clock_t real_ticks = times(&ticks);
+if (real_ticks == (clock_t) (-1)) {
+return false;
+} else {
+double ticks_per_second = (double) clock_tics_per_sec;
+*process_user_time = ((double) ticks.tms_utime) / ticks_per_second;
+*process_system_time = ((double) ticks.tms_stime) / ticks_per_second;
+*process_real_time = ((double) real_ticks) / ticks_per_second;
+return true;
+}
 }
 char * os::local_time_string(char *buf, size_t buflen) {
 struct tm t;
 }
 // trace
 if (Verbose && !addr) {
 if (requested_addr != NULL) {
-warning("failed to shm-allocate 0x%llX bytes at with address 0x%p.", size, requested_addr);
+warning("failed to shm-allocate 0x%llX bytes at wish address 0x%p.", size, requested_addr);
 } else {
 warning("failed to shm-allocate 0x%llX bytes at any address.", size);
 }
 }
 shmbk_register(p_block);
 UNLOCK_SHMBK
 cleanup_mmap:
-if (addr) {
+// trace
 if (Verbose) {
+if (addr) {
 fprintf(stderr, "mmap-allocated 0x%p .. 0x%p (0x%llX bytes)\n", addr, addr + bytes, bytes);
 }
-}
+else {
-else {
+if (requested_addr != NULL) {
-if (requested_addr != NULL) {
+warning("failed to mmap-allocate 0x%llX bytes at wish address 0x%p.", bytes, requested_addr);
-warning("failed to mmap-allocate 0x%llX bytes at wish address 0x%p.", bytes, requested_addr);
+} else {
-} else {
+warning("failed to mmap-allocate 0x%llX bytes at any address.", bytes);
-warning("failed to mmap-allocate 0x%llX bytes at any address.", bytes);
+}
 }
 }
 return addr;
 return actp;
 }
 static bool call_chained_handler(struct sigaction *actp, int sig,
 siginfo_t *siginfo, void *context) {
-Unimplemented();
+// Call the old signal handler
+if (actp->sa_handler == SIG_DFL) {
+// It's more reasonable to let jvm treat it as an unexpected exception
+// instead of taking the default action.
+return false;
+} else if (actp->sa_handler != SIG_IGN) {
+if ((actp->sa_flags & SA_NODEFER) == 0) {
+// automaticlly block the signal
+sigaddset(&(actp->sa_mask), sig);
+}
+sa_handler_t hand = NULL;
+sa_sigaction_t sa = NULL;
+bool siginfo_flag_set = (actp->sa_flags & SA_SIGINFO) != 0;
+// retrieve the chained handler
+if (siginfo_flag_set) {
+sa = actp->sa_sigaction;
+} else {
+hand = actp->sa_handler;
+}
+if ((actp->sa_flags & SA_RESETHAND) != 0) {
+actp->sa_handler = SIG_DFL;
+}
+// try to honor the signal mask
+sigset_t oset;
+pthread_sigmask(SIG_SETMASK, &(actp->sa_mask), &oset);
+// call into the chained handler
+if (siginfo_flag_set) {
+(*sa)(sig, siginfo, context);
+} else {
+(*hand)(sig);
+}
+// restore the signal mask
+pthread_sigmask(SIG_SETMASK, &oset, 0);
+}
+// Tell jvm's signal handler the signal is taken care of.
 return true;
 }
 bool os::Aix::chained_handler(int sig, siginfo_t* siginfo, void* context) {
 bool chained = false;
 else
 return (address)(intptr_t(y) & page_bits);
 }
 bool os::find(address addr, outputStream* st) {
-Unimplemented();
+st->print(PTR_FORMAT ": ", addr);
+const LoadedLibraryModule* lib = LoadedLibraries::find_for_text_address(addr);
+if (lib) {
+lib->print(st);
+return true;
+} else {
+lib = LoadedLibraries::find_for_data_address(addr);
+if (lib) {
+lib->print(st);
+return true;
+} else {
+st->print_cr("(outside any module)");
+}
+}
 return false;
 }
 ////////////////////////////////////////////////////////////////////////////////
 // misc
 //   return ::vsnprintf(buf, count, format, args);
 // }
 // Is a (classpath) directory empty?
 bool os::dir_is_empty(const char* path) {
-Unimplemented();
+DIR *dir = NULL;
-return false;
+struct dirent *ptr;
+dir = opendir(path);
+if (dir == NULL) return true;
+/* Scan the directory */
+bool result = true;
+char buf[sizeof(struct dirent) + MAX_PATH];
+while (result && (ptr = ::readdir(dir)) != NULL) {
+if (strcmp(ptr->d_name, ".") != 0 && strcmp(ptr->d_name, "..") != 0) {
+result = false;
+}
+}
+closedir(dir);
+return result;
 }
 // This code originates from JDK's sysOpen and open64_w
 // from src/solaris/hpi/src/system_md.c
 oflag = oflag & ~O_DELETE;
 fd = ::open64(path, oflag, mode);
 if (fd == -1) return -1;
-//If the open succeeded, the file might still be a directory
+// If the open succeeded, the file might still be a directory.
 {
 struct stat64 buf64;
 int ret = ::fstat64(fd, &buf64);
 int st_mode = buf64.st_mode;
 }
 // create binary file, rewriting existing file if required
 int os::create_binary_file(const char* path, bool rewrite_existing) {
-Unimplemented();
+int oflags = O_WRONLY | O_CREAT;
-return 0;
+if (!rewrite_existing) {
+oflags |= O_EXCL;
+}
+return ::open64(path, oflags, S_IREAD | S_IWRITE);
 }
 // return current position of file pointer
 jlong os::current_file_offset(int fd) {
 return (jlong)::lseek64(fd, (off64_t)0, SEEK_CUR);

Mercurial > hg > truffle

comparison src/os/aix/vm/os_aix.cpp @ 14451:b858620b0081