[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] mac os x port questions
From: |
Camm Maguire |
Subject: |
Re: [Gcl-devel] mac os x port questions |
Date: |
16 Feb 2004 15:51:40 -0500 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.2 |
Greetings! Here again is an example where DBEGIN has moved. With
these values of mach_mapstart and mach_maplimit, I think you should
have succeeded in allocating the newly enlarged hole. Please let me
know if not. What is causing these varying starting addresses?
Take care,
Aurelien Chanudet <address@hidden> writes:
> By comparing with an older version of GCL (see gdb output below) which
> works on Mac OS X, I can identify some defaults which changed. These
> changes might be the origin of the problem. In file h/cmpinclude.h :
>
> /* #define INIT_HOLEPAGE 150 */
> /* #define INIT_NRBPAGE 50 */
> /* #define RB_GETA 512 */
>
> #define INIT_HOLEPAGE (6*HOLEPAGE/5)
> #define INIT_NRBPAGE (INIT_HOLEPAGE/3)
> #define RB_GETA (10*INIT_NRBPAGE)
>
>
> Aurelien
>
> ---
>
> Starting program: /src/gcl/unixport/raw_gcl
> Reading symbols for shared libraries +.. done
> Error in re-setting breakpoint 1:
> Function "gcl_init_alloc" not defined.
> Re-enabling shared library breakpoints: 1
>
> Breakpoint 1, gcl_init_alloc () at alloc.c:730
> warning: Source file is more recent than executable.
>
> 730 if (initialized) return;
> (gdb) n
> 731 initialized=1;
> (gdb) n
> 738 malloc_list = Cnil;
> (gdb) n
> 739 enter_mark_origin(&malloc_list);
> (gdb) n
> 743 holepage = INIT_HOLEPAGE;
> (gdb) n
> 744 new_holepage = HOLEPAGE;
> (gdb) p holepage
> $1 = 150
> (gdb) n
> 745 nrbpage = INIT_NRBPAGE;
> (gdb) n
> 747 set_maxpage();
> (gdb) n
> 766 INIT_ALLOC;
> (gdb) p real_maxpage
> $2 = 330948
> (gdb) n
> 769 alloc_page(-(holepage + nrbpage));
> (gdb) p core_end
> $3 = 0xcc4000 ""
> (gdb) p heap_end
> $4 = 0xcc4000 ""
> (gdb) p mach_mapstart
> $5 = 0xcc4000 ""
> (gdb) p mach_maplimit
> $6 = 0x50cc4000 <Address 0x50cc4000 out of bounds>
> (gdb) s
> alloc_page (n=-200) at alloc.c:100
> 100 e = heap_end;
> (gdb) n
> 101 if (n >= 0) {
> (gdb) n
> 144 n = -n;
> (gdb) n
> 145 m = (core_end - heap_end)/PAGESIZE;
> (gdb) n
> 146 if (n <= m)
> (gdb) p m
> $7 = 0
> (gdb) n
> 149 IF_ALLOCATE_ERR error("Can't allocate. Good-bye!");
> (gdb) p n
> $8 = 200
> (gdb) n
> 151 if (sgc_enabled)
> (gdb) n
> 154 core_end += PAGESIZE*(n - m);
> (gdb) n
> 155 return(e);}
> (gdb) n
> 156 }
> (gdb) n
> gcl_init_alloc () at alloc.c:771
> 771 rb_start = rb_pointer = heap_end + PAGESIZE*holepage;
> (gdb) p rb_start
> $9 = 0x0
> (gdb) n
> 772 rb_end = rb_start + PAGESIZE*nrbpage;
> (gdb) n
> 773 rb_limit = rb_end - 2*RB_GETA;
> (gdb) n
> 775 tm_table[(int)t_relocatable].tm_sgc = 50;
> (gdb) n
> 778 for (i = 0; i < MAXPAGE; i++)
> (gdb) list
> 773 rb_limit = rb_end - 2*RB_GETA;
> 774 #ifdef SGC
> 775 tm_table[(int)t_relocatable].tm_sgc = 50;
> 776 #endif
> 777
> 778 for (i = 0; i < MAXPAGE; i++)
> 779 type_map[i] = (char)t_other;
> 780
> 781 /* Unused (at present) tm_distinct flag added. Note that if
> cons
> 782 and fixnum share page types, errors will be introduced.
> (gdb) p rb_start
> $10 = 0xd5a000 ""
> (gdb) p rb_end
> $11 = 0xd8c000 ""
> (gdb) b rb_limit
> "rb_limit" is not a function
> (gdb) p rb_limit
> $12 = 0xd8bc00 ""
> (gdb) p mach_maplimit
> $13 = 0x50cc4000 <Address 0x50cc4000 out of bounds>
> (gdb) p mach_mapstart
> $14 = 0xcc4000 ""
> (gdb) p holepage
> $15 = 150
> (gdb) p heap_end
> $16 = 0xcc4000 ""
>
>
>
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel
>
>
>
--
Camm Maguire address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
- Re: [Gcl-devel] mac os x port questions, (continued)
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/14
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/14
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/14
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/15
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/15
- Re: [Gcl-devel] mac os x port questions,
Camm Maguire <=
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/15
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/16
- Re: [Gcl-devel] mac os x port questions, Aurelien Chanudet, 2004/02/18