Mercurial > hg > truffle
view src/share/vm/adlc/filebuff.cpp @ 6972:bd7a7ce2e264
6830717: replay of compilations would help with debugging
Summary: When java process crashed in compiler thread, repeat the compilation process will help finding root cause. This is done with using SA dump application class data and replay data from core dump, then use debug version of jvm to recompile the problematic java method.
Reviewed-by: kvn, twisti, sspitsyn
Contributed-by: yumin.qi@oracle.com
author | minqi |
---|---|
date | Mon, 12 Nov 2012 14:03:53 -0800 |
parents | f95d63e2154a |
children |
line wrap: on
line source
/* * Copyright (c) 1997, 2010, Oracle and/or its affiliates. All rights reserved. * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * This code is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 2 only, as * published by the Free Software Foundation. * * This code is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * version 2 for more details (a copy is included in the LICENSE file that * accompanied this code). * * You should have received a copy of the GNU General Public License version * 2 along with this work; if not, write to the Free Software Foundation, * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. * * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA * or visit www.oracle.com if you need additional information or have any * questions. * */ // FILEBUFF.CPP - Routines for handling a parser file buffer #include "adlc.hpp" using namespace std; //------------------------------FileBuff--------------------------------------- // Create a new parsing buffer FileBuff::FileBuff( BufferedFile *fptr, ArchDesc& archDesc) : _fp(fptr), _AD(archDesc) { _err = fseek(_fp->_fp, 0, SEEK_END); // Seek to end of file if (_err) { file_error(SEMERR, 0, "File seek error reading input file"); exit(1); // Exit on seek error } _filepos = ftell(_fp->_fp); // Find offset of end of file _bufferSize = _filepos + 5; // Filepos points to last char, so add padding _err = fseek(_fp->_fp, 0, SEEK_SET); // Reset to beginning of file if (_err) { file_error(SEMERR, 0, "File seek error reading input file\n"); exit(1); // Exit on seek error } _filepos = ftell(_fp->_fp); // Reset current file position _linenum = 0; _bigbuf = new char[_bufferSize]; // Create buffer to hold text for parser if( !_bigbuf ) { file_error(SEMERR, 0, "Buffer allocation failed\n"); exit(1); // Exit on allocation failure } *_bigbuf = '\n'; // Lead with a sentinel newline _buf = _bigbuf+1; // Skip sentinel _bufmax = _buf; // Buffer is empty _bufeol = _bigbuf; // _bufeol points at sentinel _filepos = -1; // filepos is in sync with _bufeol _bufoff = _offset = 0L; // Offset at file start _bufmax += fread(_buf, 1, _bufferSize-2, _fp->_fp); // Fill buffer & set end value if (_bufmax == _buf) { file_error(SEMERR, 0, "File read error, no input read\n"); exit(1); // Exit on read error } *_bufmax = '\n'; // End with a sentinel new-line *(_bufmax+1) = '\0'; // Then end with a sentinel NULL } //------------------------------~FileBuff-------------------------------------- // Nuke the FileBuff FileBuff::~FileBuff() { delete _bigbuf; } //------------------------------get_line---------------------------------------- char *FileBuff::get_line(void) { char *retval; // Check for end of file & return NULL if (_bufeol >= _bufmax) return NULL; _linenum++; retval = ++_bufeol; // return character following end of previous line if (*retval == '\0') return NULL; // Check for EOF sentinel // Search for newline character which must end each line for(_filepos++; *_bufeol != '\n'; _bufeol++) _filepos++; // keep filepos in sync with _bufeol // _bufeol & filepos point at end of current line, so return pointer to start return retval; } //------------------------------FileBuffRegion--------------------------------- // Create a new region in a FileBuff. FileBuffRegion::FileBuffRegion( FileBuff* bufr, int soln, int ln, int off, int len) : _bfr(bufr), _sol(soln), _line(ln), _offset(off), _length(len) { _next = NULL; // No chained regions } //------------------------------~FileBuffRegion-------------------------------- // Delete the entire linked list of buffer regions. FileBuffRegion::~FileBuffRegion() { if( _next ) delete _next; } //------------------------------copy------------------------------------------- // Deep copy a FileBuffRegion FileBuffRegion *FileBuffRegion::copy() { if( !this ) return NULL; // The empty buffer region FileBuffRegion *br = new FileBuffRegion(_bfr,_sol,_line,_offset,_length); if( _next ) br->_next = _next->copy(); return br; } //------------------------------merge------------------------------------------ // Merge another buffer region into this buffer region. Make overlapping areas // become a single region. Remove (delete) the input FileBuffRegion. // Since the buffer regions are sorted by file offset, this is a varient of a // "sorted-merge" running in linear time. FileBuffRegion *FileBuffRegion::merge( FileBuffRegion *br ) { if( !br ) return this; // Merging nothing if( !this ) return br; // Merging into nothing assert( _bfr == br->_bfr, "" ); // Check for pointer-equivalent buffers if( _offset < br->_offset ) { // "this" starts before "br" if( _offset+_length < br->_offset ) { // "this" ends before "br" if( _next ) _next->merge( br ); // Merge with remainder of list else _next = br; // No more in this list; just append. } else { // Regions overlap. int l = br->_offset + br->_length - _offset; if( l > _length ) _length = l; // Pick larger region FileBuffRegion *nr = br->_next; // Get rest of region br->_next = NULL; // Remove indication of rest of region delete br; // Delete this region (it's been subsumed). if( nr ) merge( nr ); // Merge with rest of region } // End of if regions overlap or not. } else { // "this" starts after "br" if( br->_offset+br->_length < _offset ) { // "br" ends before "this" FileBuffRegion *nr = new FileBuffRegion(_bfr,_sol,_line,_offset,_length); nr->_next = _next; // Structure copy "this" guy to "nr" *this = *br; // Structure copy "br" over "this". br->_next = NULL; // Remove indication of rest of region delete br; // Delete this region (it's been copied) merge( nr ); // Finish merging } else { // Regions overlap. int l = _offset + _length - br->_offset; if( l > _length ) _length = l; // Pick larger region _offset = br->_offset; // Start with earlier region _sol = br->_sol; // Also use earlier line start _line = br->_line; // Also use earlier line FileBuffRegion *nr = br->_next; // Get rest of region br->_next = NULL; // Remove indication of rest of region delete br; // Delete this region (it's been subsumed). if( nr ) merge( nr ); // Merge with rest of region } // End of if regions overlap or not. } return this; } //------------------------------expandtab-------------------------------------- static int expandtab( ostream &os, int off, char c, char fill1, char fill2 ) { if( c == '\t' ) { // Tab? do os << fill1; // Expand the tab; Output space while( (++off) & 7 ); // Expand to tab stop } else { // Normal character os << fill2; // Display normal character off++; // Increment "cursor" offset } return off; } //------------------------------printline-------------------------------------- // Print and highlite a region of a line. Return the amount of highliting left // to do (i.e. highlite length minus length of line). static int printline( ostream& os, const char *fname, int line, const char *_sol, int skip, int len ) { // Display the entire tab-expanded line os << fname << ":" << line << ": "; const char *t = strchr(_sol,'\n')+1; // End of line int off = 0; // Cursor offset for tab expansion const char *s = _sol; // Nice string pointer while( t-s ) { // Display whole line char c = *s++; // Get next character to display off = expandtab(os,off,c,' ',c); } // Display the tab-expanded skippings before underlining. os << fname << ":" << line << ": "; off = 0; // Cursor offset for tab expansion s = _sol; // Restart string pointer // Start underlining. if( skip != -1 ) { // The no-start-indicating flag const char *u = _sol+skip; // Amount to skip while( u-s ) // Display skipped part off = expandtab(os,off,*s++,' ',' '); os << '^'; // Start region off++; // Moved cursor len--; // 1 less char to do if( *s++ == '\t' ) // Starting character is a tab? off = expandtab(os,off,'\t','-','^'); } // Long region doesn't end on this line int llen = (int)(t-s); // Length of line, minus what's already done if( len > llen ) { // Doing entire rest of line? while( t-s ) // Display rest of line off = expandtab(os,off,*s++,'-','-'); os << '\n'; // EOL return len-llen; // Return what's not yet done. } // Region does end on this line. This code fails subtly if the region ends // in a tab character. int i; for( i=1; i<len; i++ ) // Underline just what's needed off = expandtab(os,off,*s++,'-','-'); if( i == len ) os << '^'; // Mark end of region os << '\n'; // End of marked line return 0; // All done } //------------------------------print------------------------------------------ //std::ostream& operator<< ( std::ostream& os, FileBuffRegion &br ) { ostream& operator<< ( ostream& os, FileBuffRegion &br ) { if( &br == NULL ) return os; // The empty buffer region FileBuffRegion *brp = &br; // Pointer to region while( brp ) { // While have chained regions brp->print(os); // Print region brp = brp->_next; // Chain to next } return os; // Return final stream } //------------------------------print------------------------------------------ // Print the FileBuffRegion to a stream. FileBuffRegions are printed with the // filename and line number to the left, and complete text lines to the right. // Selected portions (portions of a line actually in the FileBuffRegion are // underlined. Ellipses are used for long multi-line regions. //void FileBuffRegion::print( std::ostream& os ) { void FileBuffRegion::print( ostream& os ) { if( !this ) return; // Nothing to print char *s = _bfr->get_line(); int skip = (int)(_offset - _sol); // Amount to skip to start of data int len = printline( os, _bfr->_fp->_name, _line, s, skip, _length ); if( !len ) return; // All done; exit // Here we require at least 2 lines int off1 = _length - len + skip; // Length of line 1 int off2 = off1 + _sol; // Offset to start of line 2 char *s2 = _bfr->get_line(); // Start of line 2 char *s3 = strchr( s2, '\n' )+1; // Start of line 3 (unread) if( len <= (s3-s2) ) { // It all fits on the next line printline( os, _bfr->_fp->_name, _line+1, s2, -1, len ); // Print&underline return; } // Here we require at least 3 lines int off3 = off2 + (int)(s3-s2); // Offset to start of line 3 s3 = _bfr->get_line(); // Start of line 3 (read) const char *s4 = strchr( s3, '\n' )+1;// Start of line 4 (unread) if( len < (s4-s3) ) { // It all fits on the next 2 lines s2 = _bfr->get_line(); len = printline( os, _bfr->_fp->_name, _line+1, s2, -1, len ); // Line 2 s3 = _bfr->get_line(); printline( os, _bfr->_fp->_name, _line+2, s3, -1, len ); // Line 3 return; } // Here we require at least 4 lines. // Print only the 1st and last line, with ellipses in middle. os << "...\n"; // The ellipses int cline = _line+1; // Skipped 2 lines do { // Do until find last line len -= (int)(s3-s2); // Remove length of line cline++; // Next line s2 = _bfr->get_line(); // Get next line from end of this line s3 = strchr( s2, '\n' ) + 1;// Get end of next line } while( len > (s3-s2) ); // Repeat until last line printline( os, _bfr->_fp->_name, cline, s2, -1, len ); // Print & underline } //------------------------------file_error------------------------------------- void FileBuff::file_error(int flag, int linenum, const char *fmt, ...) { va_list args; va_start(args, fmt); switch (flag) { case 0: _AD._warnings += _AD.emit_msg(0, flag, linenum, fmt, args); case 1: _AD._syntax_errs += _AD.emit_msg(0, flag, linenum, fmt, args); case 2: _AD._semantic_errs += _AD.emit_msg(0, flag, linenum, fmt, args); default: assert(0, ""); break; } va_end(args); _AD._no_output = 1; }