source:
git/.gdbinit
Last change on this file was d0bdb6, checked in by , 8 years ago | |
---|---|
|
|
File size: 693 bytes |
Rev | Line | |
---|---|---|
[ccd333] | 1 | break dErrorBreak |
[49d2b5] | 2 | |
[8154c3] | 3 | #break omReportError # use in case of problems with omaloc |
4 | #break dPolyReportError # use in case of problems with polynomial arithmetic | |
[d0bdb6] | 5 | |
[8e3dbb] | 6 | |
7 | ||
8 | ### http://sourceware.org/gdb/onlinedocs/gdb/Define.html#Define | |
9 | ||
[c11068] | 10 | # print poly ring |
[8e3dbb] | 11 | define pp |
[c11068] | 12 | if $argc > 0 |
13 | print $arg0 | |
[75f460] | 14 | if $arg0 != 0 |
[c11068] | 15 | print *$arg0 |
[8e3dbb] | 16 | |
[c11068] | 17 | if $argc == 2 |
18 | call p_Write($arg0, $arg1) | |
19 | else | |
20 | call p_Write($arg0, currRing) | |
21 | end | |
22 | end | |
[8e3dbb] | 23 | end |
24 | end | |
[75f460] | 25 | |
[21b9ef] | 26 | |
27 | ||
28 | # print number coeffs | |
29 | define nn | |
30 | if $argc > 0 | |
31 | print $arg0 | |
[75f460] | 32 | if $arg0 != 0 |
[21b9ef] | 33 | print *$arg0 |
34 | ||
35 | if $argc == 2 | |
36 | call n_Print($arg0, $arg1) | |
37 | else | |
38 | call n_Print($arg0, currRing->cf) | |
39 | end | |
40 | end | |
41 | end | |
42 | end | |
[75f460] | 43 |
Note: See TracBrowser
for help on using the repository browser.