[M3devel] compiler problems on Snow Leopard

[Mika Nystrom]

I upgraded to the CVS head and now I get the following:

...
"../I386_DARWIN/FSSchemeStubs.m3", line 872: warning: unreachable statement
"../I386_DARWIN/FSSchemeStubs.m3", line 903: warning: unreachable statement
"../I386_DARWIN/FSSchemeStubs.m3", line 434:  2 code generation errors
1 error and 23 warnings encountered
new exporters -> recompiling FSSchemeStubs.i3
...

The source code is:

TYPE FS_Iterator_Surrogate = FS.Iterator OBJECT (* line 434 *)
    interp : Scheme.T;
    next_slot : SchemeObject.T := NIL;
    close_slot : SchemeObject.T := NIL;
    nextWithStatus_slot : SchemeObject.T := NIL;
  OVERRIDES
    next := FS_Iterator_next_default;
    close := FS_Iterator_close_default;
    nextWithStatus := FS_Iterator_nextWithStatus_default;
  END;

     Mika

Mika Nystrom writes:
>Hi everyone,
>
>Well I was able to get past all my linking issues (mostly questions
>of dynamic vs. static linking and how to do it, which seems to change from
>version to version...)
>
>But now I did hit a real problem.
>
>"../I386_DARWIN/FSSchemeStubs.m3", line 934: ** INTERNAL CG ERROR *** unaligne
>d store  type=6  s/o/a=32/0/32
>"../I386_DARWIN/FSSchemeStubs.m3", line 981: ** INTERNAL CG ERROR *** unaligne
>d load_indirect  type=6  s/a=32/32
>
>Here is the code, but it's not likely to be of much help...
>
>PROCEDURE ToScheme_File_Status(READONLY x : File.Status) : SchemeObject.T RAIS
>ES { Scheme.E } =
>  BEGIN
>    VAR res : SchemePair.T:=NIL; BEGIN
>      res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("type"),T
>oScheme_Atom_T(x.type)),res);
>      res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("modifica
>tionTime"),SchemeModula3Types.ToScheme_LONGREAL(x.modificationTime)),res);
>      res := SchemeUtils.Cons(SchemeUtils.Cons(SchemeSymbol.FromText("size"),T
>oScheme_VAL0LONGINT__VAL16778080LONGINT(x.size)),res);  (* line 934 *)
>      RETURN res
>    END
>  END ToScheme_File_Status;
>
>
>...
>
>PROCEDURE ToScheme_VAL0LONGINT__VAL16778080LONGINT(READONLY x : [ VAL(0, LONGI
>NT )..VAL(16778080, LONGINT ) ]) : SchemeObject.T RAISES { Scheme.E } =
>  BEGIN
>    RETURN ToScheme_LONGINT(x)  (* line 981 *)
>  END ToScheme_VAL0LONGINT__VAL16778080LONGINT;
>
>
>for reference, ToScheme_LONGINT is:
>
>PROCEDURE ToScheme_LONGINT(READONLY x :  LONGINT ) : SchemeObject.T RAISES { S
>cheme.E } =
>  BEGIN
>    WITH ref = NEW(REF LONGINT) DO
>      ref^ := x;
>      RETURN SchemeModula3Types.ToScheme_LONGINT(ref)
>    END
>  END ToScheme_LONGINT;
>
>     Mika