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