1 | // |
---|
2 | // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo |
---|
3 | // |
---|
4 | // The contents of this file are covered under the licence agreement in the |
---|
5 | // file "LICENCE" distributed with Cforall. |
---|
6 | // |
---|
7 | // as.c -- map assembler file, scan for debug information. If found, expand file by one character and insert Cforall |
---|
8 | // language code on the N line from the start of the debug information. |
---|
9 | // |
---|
10 | // Author : Peter A. Buhr |
---|
11 | // Created On : Wed Aug 1 10:49:42 2018 |
---|
12 | // Last Modified By : Peter A. Buhr |
---|
13 | // Last Modified On : Tue Dec 7 10:03:34 2021 |
---|
14 | // Update Count : 108 |
---|
15 | // |
---|
16 | |
---|
17 | #include <cstdio> // perror |
---|
18 | #include <cstdlib> // exit |
---|
19 | #include <fcntl.h> // open |
---|
20 | #include <unistd.h> |
---|
21 | #include <sys/stat.h> |
---|
22 | #include <sys/mman.h> // mmap |
---|
23 | #include <string.h> |
---|
24 | |
---|
25 | //#define __DEBUG_H__ |
---|
26 | |
---|
27 | #ifdef __DEBUG_H__ |
---|
28 | #include <iostream> |
---|
29 | using namespace std; |
---|
30 | #endif // __DEBUG_H__ |
---|
31 | |
---|
32 | int main( const int argc, const char * argv[] ) { |
---|
33 | #ifdef __DEBUG_H__ |
---|
34 | for ( int i = 0; i < argc; i += 1 ) { |
---|
35 | cerr << argv[i] << endl; |
---|
36 | } // for |
---|
37 | #endif // __DEBUG_H__ |
---|
38 | |
---|
39 | int fd = open( argv[argc - 1], O_RDWR ); |
---|
40 | if ( fd < 0 ) { perror( "open" ); exit( EXIT_FAILURE ); }; |
---|
41 | |
---|
42 | struct stat mystat = {}; |
---|
43 | if ( fstat( fd, &mystat ) ) { perror( "fstat" ); exit( EXIT_FAILURE ); }; |
---|
44 | off_t size = mystat.st_size; |
---|
45 | |
---|
46 | if ( size ) { // cannot map 0 sized file |
---|
47 | char * start = (char *)mmap( NULL, size + 2, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0 ); |
---|
48 | if ( start == (void *)-1 ) { perror( "mmap" ); exit( EXIT_FAILURE ); }; |
---|
49 | |
---|
50 | if ( char * dcursor = strstr( start, ".Ldebug_info0:" ) ) { // debug information ? |
---|
51 | // Expand file by one byte to hold 2 character Cforall language code. |
---|
52 | if ( ftruncate( fd, size + 1 ) ) { perror( "ftruncate" ); exit( EXIT_FAILURE ); }; |
---|
53 | |
---|
54 | char * cursor = dcursor; |
---|
55 | for ( int i = 0; i < 8; i += 1 ) { // move N (magic) lines forward |
---|
56 | cursor = strstr( cursor, "\n" ) + 1; |
---|
57 | } // for |
---|
58 | |
---|
59 | cursor -= 2; // backup over "c\n" language value |
---|
60 | if ( *(cursor - 1) != 'x' ) { // 0x before code |
---|
61 | for ( int i = 0; i < 8; i += 1 ) { // move N (magic) lines forward |
---|
62 | cursor = strstr( cursor, "\n" ) + 1; |
---|
63 | } // for |
---|
64 | fprintf( stderr, "*** ERROR *** Invalid C language code found in assembler file: %s\n" |
---|
65 | "Assembler debug information:\n%.*s", |
---|
66 | argv[argc - 1], (int)(cursor - dcursor) + 2, dcursor ); |
---|
67 | exit( EXIT_FAILURE ); |
---|
68 | }; |
---|
69 | |
---|
70 | memmove( cursor + 2, cursor + 1, start + size - cursor - 1 ); // move remaining text 1 character right |
---|
71 | |
---|
72 | *(cursor) = '2'; // replace C language value with CFA |
---|
73 | *(cursor + 1) = '5'; |
---|
74 | } // if |
---|
75 | |
---|
76 | if ( munmap( start, size + 2 ) ) { perror( "munmap" ); exit( EXIT_FAILURE ); }; // update on disk |
---|
77 | } // if |
---|
78 | |
---|
79 | argv[0] = "as"; |
---|
80 | execvp( argv[0], (char * const *)argv ); // should not return |
---|
81 | perror( "CFA Translator error: cpp level, execvp" ); |
---|
82 | exit( EXIT_FAILURE ); // tell gcc not to go any further |
---|
83 | } // main |
---|
84 | |
---|
85 | // Local Variables: // |
---|
86 | // tab-width: 4 // |
---|
87 | // mode: c++ // |
---|
88 | // compile-command: "g++ -Wall -Wextra as.c -o as" // |
---|
89 | // End: // |
---|