[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: of possible interest to hppa people



On 2023-04-19 12:27 p.m., John David Anglin wrote:
The current version of racket fails to build because of a typo:

gcc -Wdate-time -D_FORTIFY_SOURCE=2 -Ibc -Ibc/rktio -I/<<PKGBUILDDIR>>/src/rktio -I/<<PKGBUILDDIR>>/src/bc/include -I/<<PKGBUILDDIR>>/src/version -I/<<PKGBUILDDIR>>/src/bc/src -Ibc/phase2 -g -O2 -ffile-prefix-map=/<<PKGBUILDDIR>>=. -Wformat -Werror=format-security -Wdate-time -D_FORTIFY_SOURCE=2 -DUSE_SENORA_GC -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -o bc/src/setjmpup.o -c /<<PKGBUILDDIR>>/src/bc/src/setjmpup.c
/<<PKGBUILDDIR>>/src/bc/src/setjmpup.c: In function ‘scheme_uncopy_stack’:
/<<PKGBUILDDIR>>/src/bc/src/setjmpup.c:337:30: error: ‘struct Scheme_Cont’ has no member named ‘buf’
  337 |                     + c->cont->buf.stack_size)
      |                              ^~
compile failed
Things go a bit further with the following change:

dave@mx3210:~/debian/racket/racket-8.7+dfsg1/src/bc/src$ cat setjmpup.c.d
--- setjmpup.c.save     2022-11-15 20:49:35.000000000 +0000
+++ setjmpup.c  2023-04-19 17:26:34.316615331 +0000
@@ -334,7 +334,7 @@
     if (c->cont) {
 #ifdef STACK_GROWS_UP
       top_delta = (((uintptr_t)c->cont->buf_ptr->buf.stack_from
-                   + c->cont->buf.stack_size)
+                   + (uintptr_t)c->stack_size)
                   - (uintptr_t)c->stack_from);
 #else
       bottom_delta = ((uintptr_t)c->stack_from

bc/racketcgc1 -O info'@'compiler/cm -l- setup --boot /home/dave/debian/racket/racket-8.7+dfsg1/src/setup-go.rkt bc/compiled ignored bc/ignored.d /home/dave/debian/racket/racket-8.7+dfsg1/src/bc/src/compile-startup.rkt bc/phase2/cstartup.inc bc/cstartup.zo /home/dave/debian/racket/racket-8.7+dfsg1/src/bc/src/startup.inc
/home/dave/debian/racket/racket-8.7+dfsg1/src/version/racket_version.h
failed
 in build-one
 in loop
 in module->hash
make[1]: *** [Makefile:18: all] Error 1

I doubt I have the top_delta calculation right.

There is a hppa system available for development to debian developers.  Helge can provide access to others.

Dave

--
John David Anglin  dave.anglin@bell.net


Reply to: