Fix printing SAN promotion in holdingless Seirawan

CoordsToAlgebraic() was not recognizing a two-step King move as a
castling when it did not start from the back rank, and consequently
did not generate O-O or O-O-O for it. And in holdingless Seirawan
the King starts on the 2nd rank...

diff --git a/moves.c b/moves.c
index 46763cb..2574fd0 100644 (file)
--- a/moves.c
+++ b/moves.c
@@ -2377,6 +2377,7 @@ CoordsToAlgebraic (Board board, int flags, int rf, int ff, int rt, int ft, int p
     ChessMove kind;
     char *outp = out, c, capture;
     CoordsToAlgebraicClosure cl;
+    int d;
 
     if (rf == DROP_RANK) {
        if(ff == EmptySquare) { strncpy(outp, "--",3); return NormalMove; } // [HGM] pass
@@ -2442,6 +2443,7 @@ CoordsToAlgebraic (Board board, int flags, int rf, int ff, int rt, int ft, int p
 
       case WhiteKing:
       case BlackKing:
+        d = (gameInfo.variant == VariantSChess && !gameInfo.holdingsSize);
         /* Fabien moved code: FRC castling first (if KxR), wild castling second */
        /* Code added by Tord:  FRC castling. */
        if((piece == WhiteKing && board[rt][ft] == WhiteRook) ||
@@ -2456,7 +2458,7 @@ CoordsToAlgebraic (Board board, int flags, int rf, int ff, int rt, int ft, int p
        /* Test for castling or ICS wild castling */
        /* Use style "O-O" (oh-oh) for PGN compatibility */
        else if (rf == rt &&
-           rf == ((piece == WhiteKing) ? 0 : BOARD_HEIGHT-1) &&
+           rf == ((piece == WhiteKing) ? d : BOARD_HEIGHT-1-d) &&
             (ft - ff > 1 || ff - ft > 1) &&  // No castling if legal King move (on narrow boards!)
             ((ff == BOARD_WIDTH>>1 && (ft == BOARD_LEFT+2 || ft == BOARD_RGHT-2)) ||
              (ff == (BOARD_WIDTH-1)>>1 && (ft == BOARD_LEFT+1 || ft == BOARD_RGHT-3)))) {