From 97c809d95516a9e07013080864987895bf60f706 Mon Sep 17 00:00:00 2001 From: vsc Date: Fri, 13 Feb 2004 22:10:10 +0000 Subject: [PATCH] fix tables in format git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@987 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/iopreds.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/C/iopreds.c b/C/iopreds.c index 778c26b07..91e4d43d7 100644 --- a/C/iopreds.c +++ b/C/iopreds.c @@ -3773,6 +3773,7 @@ format(Term tail, Term args, int sno) goto do_consistency_error; } else if (ch == '`') { /* next character is kept as code */ + has_repeats = TRUE; repeats = *fptr++; ch = *fptr++; } else if (ch >= '0' && ch <= '9') { @@ -4038,19 +4039,20 @@ format(Term tail, Term args, int sno) /* padding */ case '|': if (has_repeats) { - fill_pads(has_repeats-(format_ptr-format_base)); + fill_pads(repeats-(format_ptr-format_base)); } pad_max = pad_entries; - column_boundary = has_repeats; + column_boundary = repeats; break; case '+': if (has_repeats) { - fill_pads((has_repeats+column_boundary)-(format_ptr-format_base)); + fill_pads((repeats+column_boundary)-(format_ptr-format_base)); } else { + repeats = 8; fill_pads(8); } pad_max = pad_entries; - column_boundary = has_repeats+column_boundary; + column_boundary = repeats+column_boundary; break; case 't': if (!has_repeats)