Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/adadecode.c @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 * * 4 * *
5 * A D A D E C O D E * 5 * A D A D E C O D E *
6 * * 6 * *
7 * C Implementation File * 7 * C Implementation File *
8 * * 8 * *
9 * Copyright (C) 2001-2015, Free Software Foundation, Inc. * 9 * Copyright (C) 2001-2018, Free Software Foundation, Inc. *
10 * * 10 * *
11 * GNAT is free software; you can redistribute it and/or modify it under * 11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- * 12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- * 13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- * 14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
328 for (t = 0; t < num_to_move; t++) 328 for (t = 0; t < num_to_move; t++)
329 ada_name[len + space - t - 1] = ada_name[len - t - 1]; 329 ada_name[len + space - t - 1] = ada_name[len - t - 1];
330 } 330 }
331 331
332 /* Write symbol in the space. */ 332 /* Write symbol in the space. */
333 strncpy (optoken, trans_table[k][1], oplen); 333 memcpy (optoken, trans_table[k][1], oplen);
334 } 334 }
335 else 335 else
336 k++; 336 k++;
337 337
338 /* Check for table's ending. */ 338 /* Check for table's ending. */