Revert changes.
[repair.git] / Repair / RepairCompiler / MCC / Runtime / stack.c
1 /*
2 Copyright 1988, 1989 Hans-J. Boehm, Alan J. Demers
3 Copyright (c) 1991-1995 by Xerox Corporation.  All rights reserved.
4 Copyright (c) 1996-1999 by Silicon Graphics.  All rights reserved.
5 Copyright (c) 1999-2001 by Hewlett-Packard. All rights reserved.
6
7 THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
8 OR IMPLIED.  ANY USE IS AT YOUR OWN RISK.
9
10 Permission is hereby granted to use or copy this program
11 for any purpose,  provided the above notices are retained on all copies.
12 Permission to modify the code and to distribute modified code is granted,
13 provided the above notices are retained, and a notice that the code was
14 modified is included with the above copyright notice.   
15  */
16
17
18 #include <sys/types.h>
19 #include <sys/stat.h>
20 #include <fcntl.h>
21 #include <ctype.h>
22 #define ptr_t void *
23 #pragma weak __libc_stack_end
24 extern ptr_t __libc_stack_end;
25 #define word unsigned int
26 # define STAT_SKIP 27   /* Number of fields preceding startstack        */
27                         /* field in /proc/self/stat                     */
28 #define ABORT printf
29
30   ptr_t GC_linux_stack_base(void)
31   {
32     /* We read the stack base value from /proc/self/stat.  We do this   */
33     /* using direct I/O system calls in order to avoid calling malloc   */
34     /* in case REDIRECT_MALLOC is defined.                              */ 
35 #   define STAT_BUF_SIZE 4096
36 #   define STAT_READ read
37           /* Should probably call the real read, if read is wrapped.    */
38     char stat_buf[STAT_BUF_SIZE];
39     int f;
40     char c;
41     word result = 0;
42     size_t i, buf_offset = 0;
43
44     /* First try the easy way.  This should work for glibc 2.2  */
45       if (0 != &__libc_stack_end) {
46 #       ifdef IA64
47           /* Some versions of glibc set the address 16 bytes too        */
48           /* low while the initialization code is running.              */
49           if (((word)__libc_stack_end & 0xfff) + 0x10 < 0x1000) {
50             return __libc_stack_end + 0x10;
51           } /* Otherwise it's not safe to add 16 bytes and we fall      */
52             /* back to using /proc.                                     */
53 #       else 
54           return __libc_stack_end;
55 #       endif
56       }
57     f = open("/proc/self/stat", O_RDONLY);
58     if (f < 0 || STAT_READ(f, stat_buf, STAT_BUF_SIZE) < 2 * STAT_SKIP) {
59         ABORT("Couldn't read /proc/self/stat");
60     }
61     c = stat_buf[buf_offset++];
62     /* Skip the required number of fields.  This number is hopefully    */
63     /* constant across all Linux implementations.                       */
64       for (i = 0; i < STAT_SKIP; ++i) {
65         while (isspace(c)) c = stat_buf[buf_offset++];
66         while (!isspace(c)) c = stat_buf[buf_offset++];
67       }
68     while (isspace(c)) c = stat_buf[buf_offset++];
69     while (isdigit(c)) {
70       result *= 10;
71       result += c - '0';
72       c = stat_buf[buf_offset++];
73     }
74     close(f);
75     if (result < 0x10000000) ABORT("Absurd stack bottom value");
76     return (ptr_t)result;
77   }