[decnum-dynpmcs] r162 committed - Integrate abs.decTest into our test suite.

3 views
Skip to first unread message

codesite...@google.com

unread,
Aug 10, 2009, 6:45:52 PM8/10/09
to decnum-...@googlegroups.com
Revision: 162
Author: arbelo
Date: Mon Aug 10 15:45:19 2009
Log: Integrate abs.decTest into our test suite.


http://code.google.com/p/decnum-dynpmcs/source/detail?r=162

Added:
/trunk/t/abs.t
Modified:
/trunk/aux/decTest/src/inc/procs.pir
/trunk/aux/decTest/src/pct/grammar.pg

=======================================
--- /dev/null
+++ /trunk/t/abs.t Mon Aug 10 15:45:19 2009
@@ -0,0 +1,1636 @@
+#! /usr/bin/env parrot
+
+.namespace []
+.sub "tests" :subid("10_1249943802")
+.annotate "line", 0
+ .const 'Sub' $P422 = "93_1249943802"
+ capture_lex $P422
+ .const 'Sub' $P417 = "92_1249943802"
+ capture_lex $P417
+ .const 'Sub' $P412 = "91_1249943802"
+ capture_lex $P412
+ .const 'Sub' $P407 = "90_1249943802"
+ capture_lex $P407
+ .const 'Sub' $P402 = "89_1249943802"
+ capture_lex $P402
+ .const 'Sub' $P397 = "88_1249943802"
+ capture_lex $P397
+ .const 'Sub' $P392 = "87_1249943802"
+ capture_lex $P392
+ .const 'Sub' $P387 = "86_1249943802"
+ capture_lex $P387
+ .const 'Sub' $P382 = "85_1249943802"
+ capture_lex $P382
+ .const 'Sub' $P377 = "84_1249943802"
+ capture_lex $P377
+ .const 'Sub' $P372 = "83_1249943802"
+ capture_lex $P372
+ .const 'Sub' $P367 = "82_1249943802"
+ capture_lex $P367
+ .const 'Sub' $P362 = "81_1249943802"
+ capture_lex $P362
+ .const 'Sub' $P357 = "80_1249943802"
+ capture_lex $P357
+ .const 'Sub' $P352 = "79_1249943802"
+ capture_lex $P352
+ .const 'Sub' $P347 = "78_1249943802"
+ capture_lex $P347
+ .const 'Sub' $P342 = "77_1249943802"
+ capture_lex $P342
+ .const 'Sub' $P337 = "76_1249943802"
+ capture_lex $P337
+ .const 'Sub' $P332 = "75_1249943802"
+ capture_lex $P332
+ .const 'Sub' $P327 = "74_1249943802"
+ capture_lex $P327
+ .const 'Sub' $P322 = "73_1249943802"
+ capture_lex $P322
+ .const 'Sub' $P317 = "72_1249943802"
+ capture_lex $P317
+ .const 'Sub' $P312 = "71_1249943802"
+ capture_lex $P312
+ .const 'Sub' $P307 = "70_1249943802"
+ capture_lex $P307
+ .const 'Sub' $P302 = "69_1249943802"
+ capture_lex $P302
+ .const 'Sub' $P297 = "68_1249943802"
+ capture_lex $P297
+ .const 'Sub' $P292 = "67_1249943802"
+ capture_lex $P292
+ .const 'Sub' $P287 = "66_1249943802"
+ capture_lex $P287
+ .const 'Sub' $P282 = "65_1249943802"
+ capture_lex $P282
+ .const 'Sub' $P277 = "64_1249943802"
+ capture_lex $P277
+ .const 'Sub' $P272 = "63_1249943802"
+ capture_lex $P272
+ .const 'Sub' $P267 = "62_1249943802"
+ capture_lex $P267
+ .const 'Sub' $P262 = "61_1249943802"
+ capture_lex $P262
+ .const 'Sub' $P257 = "60_1249943802"
+ capture_lex $P257
+ .const 'Sub' $P252 = "59_1249943802"
+ capture_lex $P252
+ .const 'Sub' $P247 = "58_1249943802"
+ capture_lex $P247
+ .const 'Sub' $P242 = "57_1249943802"
+ capture_lex $P242
+ .const 'Sub' $P237 = "56_1249943802"
+ capture_lex $P237
+ .const 'Sub' $P232 = "55_1249943802"
+ capture_lex $P232
+ .const 'Sub' $P227 = "54_1249943802"
+ capture_lex $P227
+ .const 'Sub' $P222 = "53_1249943802"
+ capture_lex $P222
+ .const 'Sub' $P217 = "52_1249943802"
+ capture_lex $P217
+ .const 'Sub' $P212 = "51_1249943802"
+ capture_lex $P212
+ .const 'Sub' $P207 = "50_1249943802"
+ capture_lex $P207
+ .const 'Sub' $P202 = "49_1249943802"
+ capture_lex $P202
+ .const 'Sub' $P197 = "48_1249943802"
+ capture_lex $P197
+ .const 'Sub' $P192 = "47_1249943802"
+ capture_lex $P192
+ .const 'Sub' $P187 = "46_1249943802"
+ capture_lex $P187
+ .const 'Sub' $P182 = "45_1249943802"
+ capture_lex $P182
+ .const 'Sub' $P177 = "44_1249943802"
+ capture_lex $P177
+ .const 'Sub' $P172 = "43_1249943802"
+ capture_lex $P172
+ .const 'Sub' $P167 = "42_1249943802"
+ capture_lex $P167
+ .const 'Sub' $P162 = "41_1249943802"
+ capture_lex $P162
+ .const 'Sub' $P157 = "40_1249943802"
+ capture_lex $P157
+ .const 'Sub' $P152 = "39_1249943802"
+ capture_lex $P152
+ .const 'Sub' $P147 = "38_1249943802"
+ capture_lex $P147
+ .const 'Sub' $P142 = "37_1249943802"
+ capture_lex $P142
+ .const 'Sub' $P137 = "36_1249943802"
+ capture_lex $P137
+ .const 'Sub' $P132 = "35_1249943802"
+ capture_lex $P132
+ .const 'Sub' $P127 = "34_1249943802"
+ capture_lex $P127
+ .const 'Sub' $P122 = "33_1249943802"
+ capture_lex $P122
+ .const 'Sub' $P117 = "32_1249943802"
+ capture_lex $P117
+ .const 'Sub' $P112 = "31_1249943802"
+ capture_lex $P112
+ .const 'Sub' $P107 = "30_1249943802"
+ capture_lex $P107
+ .const 'Sub' $P102 = "29_1249943802"
+ capture_lex $P102
+ .const 'Sub' $P97 = "28_1249943802"
+ capture_lex $P97
+ .const 'Sub' $P92 = "27_1249943802"
+ capture_lex $P92
+ .const 'Sub' $P87 = "26_1249943802"
+ capture_lex $P87
+ .const 'Sub' $P82 = "25_1249943802"
+ capture_lex $P82
+ .const 'Sub' $P77 = "24_1249943802"
+ capture_lex $P77
+ .const 'Sub' $P72 = "23_1249943802"
+ capture_lex $P72
+ .const 'Sub' $P67 = "22_1249943802"
+ capture_lex $P67
+ .const 'Sub' $P62 = "21_1249943802"
+ capture_lex $P62
+ .const 'Sub' $P57 = "20_1249943802"
+ capture_lex $P57
+ .const 'Sub' $P52 = "19_1249943802"
+ capture_lex $P52
+ .const 'Sub' $P47 = "18_1249943802"
+ capture_lex $P47
+ .const 'Sub' $P42 = "17_1249943802"
+ capture_lex $P42
+ .const 'Sub' $P37 = "16_1249943802"
+ capture_lex $P37
+ .const 'Sub' $P32 = "15_1249943802"
+ capture_lex $P32
+ .const 'Sub' $P27 = "14_1249943802"
+ capture_lex $P27
+ .const 'Sub' $P22 = "13_1249943802"
+ capture_lex $P22
+ .const 'Sub' $P17 = "12_1249943802"
+ capture_lex $P17
+ .const 'Sub' $P12 = "11_1249943802"
+ capture_lex $P12
+.annotate "line", 1
+.include "test_more.pir"
+.include "inc/decnum.pasm"
+load_bytecode "aux/decTest/src/inc/procs.pbc"
+$P0 = loadlib "build/decnum_group"
+.local pmc ctx
+ ctx = new "DecNumContext"
+ ctx."set_ieee754_cmp"(1)
+ ctx."set_exceptions"(0)
+ "plan"(83)
+.annotate "line", 26
+ ctx."set_digits"(9)
+.annotate "line", 27
+ ctx."set_rounding_mode"(.DEC_ROUND_HALF_UP)
+.annotate "line", 28
+ ctx."set_emax"(384)
+.annotate "line", 29
+ ctx."set_emin"(-383)
+.annotate "line", 32
+ .const 'Sub' $P12 = "11_1249943802"
+ capture_lex $P12
+ $P12()
+.annotate "line", 33
+ .const 'Sub' $P17 = "12_1249943802"
+ capture_lex $P17
+ $P17()
+.annotate "line", 34
+ .const 'Sub' $P22 = "13_1249943802"
+ capture_lex $P22
+ $P22()
+.annotate "line", 35
+ .const 'Sub' $P27 = "14_1249943802"
+ capture_lex $P27
+ $P27()
+.annotate "line", 36
+ .const 'Sub' $P32 = "15_1249943802"
+ capture_lex $P32
+ $P32()
+.annotate "line", 37
+ .const 'Sub' $P37 = "16_1249943802"
+ capture_lex $P37
+ $P37()
+.annotate "line", 38
+ .const 'Sub' $P42 = "17_1249943802"
+ capture_lex $P42
+ $P42()
+.annotate "line", 39
+ .const 'Sub' $P47 = "18_1249943802"
+ capture_lex $P47
+ $P47()
+.annotate "line", 40
+ .const 'Sub' $P52 = "19_1249943802"
+ capture_lex $P52
+ $P52()
+.annotate "line", 42
+ .const 'Sub' $P57 = "20_1249943802"
+ capture_lex $P57
+ $P57()
+.annotate "line", 43
+ .const 'Sub' $P62 = "21_1249943802"
+ capture_lex $P62
+ $P62()
+.annotate "line", 44
+ .const 'Sub' $P67 = "22_1249943802"
+ capture_lex $P67
+ $P67()
+.annotate "line", 45
+ .const 'Sub' $P72 = "23_1249943802"
+ capture_lex $P72
+ $P72()
+.annotate "line", 46
+ .const 'Sub' $P77 = "24_1249943802"
+ capture_lex $P77
+ $P77()
+.annotate "line", 47
+ .const 'Sub' $P82 = "25_1249943802"
+ capture_lex $P82
+ $P82()
+.annotate "line", 48
+ .const 'Sub' $P87 = "26_1249943802"
+ capture_lex $P87
+ $P87()
+.annotate "line", 49
+ .const 'Sub' $P92 = "27_1249943802"
+ capture_lex $P92
+ $P92()
+.annotate "line", 50
+ .const 'Sub' $P97 = "28_1249943802"
+ capture_lex $P97
+ $P97()
+.annotate "line", 52
+ .const 'Sub' $P102 = "29_1249943802"
+ capture_lex $P102
+ $P102()
+.annotate "line", 53
+ .const 'Sub' $P107 = "30_1249943802"
+ capture_lex $P107
+ $P107()
+.annotate "line", 54
+ ctx."set_digits"(7)
+.annotate "line", 55
+ .const 'Sub' $P112 = "31_1249943802"
+ capture_lex $P112
+ $P112()
+.annotate "line", 56
+ .const 'Sub' $P117 = "32_1249943802"
+ capture_lex $P117
+ $P117()
+.annotate "line", 57
+ ctx."set_digits"(6)
+.annotate "line", 58
+ .const 'Sub' $P122 = "33_1249943802"
+ capture_lex $P122
+ $P122()
+.annotate "line", 59
+ .const 'Sub' $P127 = "34_1249943802"
+ capture_lex $P127
+ $P127()
+.annotate "line", 60
+ ctx."set_digits"(3)
+.annotate "line", 61
+ .const 'Sub' $P132 = "35_1249943802"
+ capture_lex $P132
+ $P132()
+.annotate "line", 62
+ .const 'Sub' $P137 = "36_1249943802"
+ capture_lex $P137
+ $P137()
+.annotate "line", 64
+ .const 'Sub' $P142 = "37_1249943802"
+ capture_lex $P142
+ $P142()
+.annotate "line", 65
+ .const 'Sub' $P147 = "38_1249943802"
+ capture_lex $P147
+ $P147()
+.annotate "line", 66
+ .const 'Sub' $P152 = "39_1249943802"
+ capture_lex $P152
+ $P152()
+.annotate "line", 67
+ .const 'Sub' $P157 = "40_1249943802"
+ capture_lex $P157
+ $P157()
+.annotate "line", 68
+ .const 'Sub' $P162 = "41_1249943802"
+ capture_lex $P162
+ $P162()
+.annotate "line", 69
+ .const 'Sub' $P167 = "42_1249943802"
+ capture_lex $P167
+ $P167()
+.annotate "line", 70
+ .const 'Sub' $P172 = "43_1249943802"
+ capture_lex $P172
+ $P172()
+.annotate "line", 71
+ .const 'Sub' $P177 = "44_1249943802"
+ capture_lex $P177
+ $P177()
+.annotate "line", 72
+ .const 'Sub' $P182 = "45_1249943802"
+ capture_lex $P182
+ $P182()
+.annotate "line", 73
+ .const 'Sub' $P187 = "46_1249943802"
+ capture_lex $P187
+ $P187()
+.annotate "line", 76
+ ctx."set_digits"(9)
+.annotate "line", 77
+ .const 'Sub' $P192 = "47_1249943802"
+ capture_lex $P192
+ $P192()
+.annotate "line", 78
+ .const 'Sub' $P197 = "48_1249943802"
+ capture_lex $P197
+ $P197()
+.annotate "line", 79
+ .const 'Sub' $P202 = "49_1249943802"
+ capture_lex $P202
+ $P202()
+.annotate "line", 80
+ .const 'Sub' $P207 = "50_1249943802"
+ capture_lex $P207
+ $P207()
+.annotate "line", 83
+ ctx."set_digits"(9)
+.annotate "line", 84
+ .const 'Sub' $P212 = "51_1249943802"
+ capture_lex $P212
+ $P212()
+.annotate "line", 85
+ .const 'Sub' $P217 = "52_1249943802"
+ capture_lex $P217
+ $P217()
+.annotate "line", 86
+ .const 'Sub' $P222 = "53_1249943802"
+ capture_lex $P222
+ $P222()
+.annotate "line", 87
+ .const 'Sub' $P227 = "54_1249943802"
+ capture_lex $P227
+ $P227()
+.annotate "line", 88
+ .const 'Sub' $P232 = "55_1249943802"
+ capture_lex $P232
+ $P232()
+.annotate "line", 91
+ ctx."set_emax"(999999999)
+.annotate "line", 92
+ ctx."set_emin"(-999999999)
+.annotate "line", 93
+ ctx."set_digits"(3)
+.annotate "line", 94
+ .const 'Sub' $P237 = "56_1249943802"
+ capture_lex $P237
+ $P237()
+.annotate "line", 97
+ ctx."set_digits"(3)
+.annotate "line", 98
+ ctx."set_emax"(999)
+.annotate "line", 99
+ ctx."set_emin"(-999)
+.annotate "line", 100
+ .const 'Sub' $P242 = "57_1249943802"
+ capture_lex $P242
+ $P242()
+.annotate "line", 101
+ .const 'Sub' $P247 = "58_1249943802"
+ capture_lex $P247
+ $P247()
+.annotate "line", 102
+ .const 'Sub' $P252 = "59_1249943802"
+ capture_lex $P252
+ $P252()
+.annotate "line", 103
+ .const 'Sub' $P257 = "60_1249943802"
+ capture_lex $P257
+ $P257()
+.annotate "line", 104
+ .const 'Sub' $P262 = "61_1249943802"
+ capture_lex $P262
+ $P262()
+.annotate "line", 106
+ .const 'Sub' $P267 = "62_1249943802"
+ capture_lex $P267
+ $P267()
+.annotate "line", 107
+ .const 'Sub' $P272 = "63_1249943802"
+ capture_lex $P272
+ $P272()
+.annotate "line", 108
+ .const 'Sub' $P277 = "64_1249943802"
+ capture_lex $P277
+ $P277()
+.annotate "line", 109
+ .const 'Sub' $P282 = "65_1249943802"
+ capture_lex $P282
+ $P282()
+.annotate "line", 110
+ .const 'Sub' $P287 = "66_1249943802"
+ capture_lex $P287
+ $P287()
+.annotate "line", 111
+ .const 'Sub' $P292 = "67_1249943802"
+ capture_lex $P292
+ $P292()
+.annotate "line", 113
+ .const 'Sub' $P297 = "68_1249943802"
+ capture_lex $P297
+ $P297()
+.annotate "line", 114
+ .const 'Sub' $P302 = "69_1249943802"
+ capture_lex $P302
+ $P302()
+.annotate "line", 115
+ .const 'Sub' $P307 = "70_1249943802"
+ capture_lex $P307
+ $P307()
+.annotate "line", 116
+ .const 'Sub' $P312 = "71_1249943802"
+ capture_lex $P312
+ $P312()
+.annotate "line", 117
+ .const 'Sub' $P317 = "72_1249943802"
+ capture_lex $P317
+ $P317()
+.annotate "line", 119
+ .const 'Sub' $P322 = "73_1249943802"
+ capture_lex $P322
+ $P322()
+.annotate "line", 120
+ .const 'Sub' $P327 = "74_1249943802"
+ capture_lex $P327
+ $P327()
+.annotate "line", 121
+ .const 'Sub' $P332 = "75_1249943802"
+ capture_lex $P332
+ $P332()
+.annotate "line", 122
+ .const 'Sub' $P337 = "76_1249943802"
+ capture_lex $P337
+ $P337()
+.annotate "line", 123
+ .const 'Sub' $P342 = "77_1249943802"
+ capture_lex $P342
+ $P342()
+.annotate "line", 124
+ .const 'Sub' $P347 = "78_1249943802"
+ capture_lex $P347
+ $P347()
+.annotate "line", 127
+ ctx."set_emax"(999)
+.annotate "line", 128
+ ctx."set_emin"(-999)
+.annotate "line", 129
+ ctx."set_digits"(9)
+.annotate "line", 130
+ .const 'Sub' $P352 = "79_1249943802"
+ capture_lex $P352
+ $P352()
+.annotate "line", 131
+ .const 'Sub' $P357 = "80_1249943802"
+ capture_lex $P357
+ $P357()
+.annotate "line", 132
+ .const 'Sub' $P362 = "81_1249943802"
+ capture_lex $P362
+ $P362()
+.annotate "line", 133
+ .const 'Sub' $P367 = "82_1249943802"
+ capture_lex $P367
+ $P367()
+.annotate "line", 134
+ .const 'Sub' $P372 = "83_1249943802"
+ capture_lex $P372
+ $P372()
+.annotate "line", 135
+ .const 'Sub' $P377 = "84_1249943802"
+ capture_lex $P377
+ $P377()
+.annotate "line", 137
+ ctx."set_digits"(15)
+.annotate "line", 138
+ .const 'Sub' $P382 = "85_1249943802"
+ capture_lex $P382
+ $P382()
+.annotate "line", 139
+ .const 'Sub' $P387 = "86_1249943802"
+ capture_lex $P387
+ $P387()
+.annotate "line", 140
+ .const 'Sub' $P392 = "87_1249943802"
+ capture_lex $P392
+ $P392()
+.annotate "line", 141
+ .const 'Sub' $P397 = "88_1249943802"
+ capture_lex $P397
+ $P397()
+.annotate "line", 142
+ .const 'Sub' $P402 = "89_1249943802"
+ capture_lex $P402
+ $P402()
+.annotate "line", 143
+ .const 'Sub' $P407 = "90_1249943802"
+ capture_lex $P407
+ $P407()
+.annotate "line", 147
+ ctx."set_digits"(9)
+.annotate "line", 150
+ .const 'Sub' $P412 = "91_1249943802"
+ capture_lex $P412
+ $P412()
+.annotate "line", 151
+ .const 'Sub' $P417 = "92_1249943802"
+ capture_lex $P417
+ $P417()
+.annotate "line", 152
+ .const 'Sub' $P422 = "93_1249943802"
+ capture_lex $P422
+ $P427 = $P422()
+.annotate "line", 1
+ .return ($P427)
+.end
+
+
+.namespace []
+.sub "absx001" :subid("11_1249943802") :outer("10_1249943802")
+.annotate "line", 32
+ new $P13, "DecNum"
+ assign $P13, '1'
+ $P14 = "abs"($P13)
+ new $P15, "DecNum"
+ assign $P15, '1'
+ $P16 = "is"($P14, $P15, "absx001")
+ .return ($P16)
+.end
+
+
+.namespace []
+.sub "absx002" :subid("12_1249943802") :outer("10_1249943802")
+.annotate "line", 33
+ new $P18, "DecNum"
+ assign $P18, '-1'
+ $P19 = "abs"($P18)
+ new $P20, "DecNum"
+ assign $P20, '1'
+ $P21 = "is"($P19, $P20, "absx002")
+ .return ($P21)
+.end
+
+
+.namespace []
+.sub "absx003" :subid("13_1249943802") :outer("10_1249943802")
+.annotate "line", 34
+ new $P23, "DecNum"
+ assign $P23, '1.00'
+ $P24 = "abs"($P23)
+ new $P25, "DecNum"
+ assign $P25, '1.00'
+ $P26 = "is"($P24, $P25, "absx003")
+ .return ($P26)
+.end
+
+
+.namespace []
+.sub "absx004" :subid("14_1249943802") :outer("10_1249943802")
+.annotate "line", 35
+ new $P28, "DecNum"
+ assign $P28, '-1.00'
+ $P29 = "abs"($P28)
+ new $P30, "DecNum"
+ assign $P30, '1.00'
+ $P31 = "is"($P29, $P30, "absx004")
+ .return ($P31)
+.end
+
+
+.namespace []
+.sub "absx005" :subid("15_1249943802") :outer("10_1249943802")
+.annotate "line", 36
+ new $P33, "DecNum"
+ assign $P33, '0'
+ $P34 = "abs"($P33)
+ new $P35, "DecNum"
+ assign $P35, '0'
+ $P36 = "is"($P34, $P35, "absx005")
+ .return ($P36)
+.end
+
+
+.namespace []
+.sub "absx006" :subid("16_1249943802") :outer("10_1249943802")
+.annotate "line", 37
+ new $P38, "DecNum"
+ assign $P38, '0.00'
+ $P39 = "abs"($P38)
+ new $P40, "DecNum"
+ assign $P40, '0.00'
+ $P41 = "is"($P39, $P40, "absx006")
+ .return ($P41)
+.end
+
+
+.namespace []
+.sub "absx007" :subid("17_1249943802") :outer("10_1249943802")
+.annotate "line", 38
+ new $P43, "DecNum"
+ assign $P43, '00.0'
+ $P44 = "abs"($P43)
+ new $P45, "DecNum"
+ assign $P45, '0.0'
+ $P46 = "is"($P44, $P45, "absx007")
+ .return ($P46)
+.end
+
+
+.namespace []
+.sub "absx008" :subid("18_1249943802") :outer("10_1249943802")
+.annotate "line", 39
+ new $P48, "DecNum"
+ assign $P48, '00.00'
+ $P49 = "abs"($P48)
+ new $P50, "DecNum"
+ assign $P50, '0.00'
+ $P51 = "is"($P49, $P50, "absx008")
+ .return ($P51)
+.end
+
+
+.namespace []
+.sub "absx009" :subid("19_1249943802") :outer("10_1249943802")
+.annotate "line", 40
+ new $P53, "DecNum"
+ assign $P53, '00'
+ $P54 = "abs"($P53)
+ new $P55, "DecNum"
+ assign $P55, '0'
+ $P56 = "is"($P54, $P55, "absx009")
+ .return ($P56)
+.end
+
+
+.namespace []
+.sub "absx010" :subid("20_1249943802") :outer("10_1249943802")
+.annotate "line", 42
+ new $P58, "DecNum"
+ assign $P58, '-2'
+ $P59 = "abs"($P58)
+ new $P60, "DecNum"
+ assign $P60, '2'
+ $P61 = "is"($P59, $P60, "absx010")
+ .return ($P61)
+.end
+
+
+.namespace []
+.sub "absx011" :subid("21_1249943802") :outer("10_1249943802")
+.annotate "line", 43
+ new $P63, "DecNum"
+ assign $P63, '2'
+ $P64 = "abs"($P63)
+ new $P65, "DecNum"
+ assign $P65, '2'
+ $P66 = "is"($P64, $P65, "absx011")
+ .return ($P66)
+.end
+
+
+.namespace []
+.sub "absx012" :subid("22_1249943802") :outer("10_1249943802")
+.annotate "line", 44
+ new $P68, "DecNum"
+ assign $P68, '-2.00'
+ $P69 = "abs"($P68)
+ new $P70, "DecNum"
+ assign $P70, '2.00'
+ $P71 = "is"($P69, $P70, "absx012")
+ .return ($P71)
+.end
+
+
+.namespace []
+.sub "absx013" :subid("23_1249943802") :outer("10_1249943802")
+.annotate "line", 45
+ new $P73, "DecNum"
+ assign $P73, '2.00'
+ $P74 = "abs"($P73)
+ new $P75, "DecNum"
+ assign $P75, '2.00'
+ $P76 = "is"($P74, $P75, "absx013")
+ .return ($P76)
+.end
+
+
+.namespace []
+.sub "absx014" :subid("24_1249943802") :outer("10_1249943802")
+.annotate "line", 46
+ new $P78, "DecNum"
+ assign $P78, '-0'
+ $P79 = "abs"($P78)
+ new $P80, "DecNum"
+ assign $P80, '0'
+ $P81 = "is"($P79, $P80, "absx014")
+ .return ($P81)
+.end
+
+
+.namespace []
+.sub "absx015" :subid("25_1249943802") :outer("10_1249943802")
+.annotate "line", 47
+ new $P83, "DecNum"
+ assign $P83, '-0.00'
+ $P84 = "abs"($P83)
+ new $P85, "DecNum"
+ assign $P85, '0.00'
+ $P86 = "is"($P84, $P85, "absx015")
+ .return ($P86)
+.end
+
+
+.namespace []
+.sub "absx016" :subid("26_1249943802") :outer("10_1249943802")
+.annotate "line", 48
+ new $P88, "DecNum"
+ assign $P88, '-00.0'
+ $P89 = "abs"($P88)
+ new $P90, "DecNum"
+ assign $P90, '0.0'
+ $P91 = "is"($P89, $P90, "absx016")
+ .return ($P91)
+.end
+
+
+.namespace []
+.sub "absx017" :subid("27_1249943802") :outer("10_1249943802")
+.annotate "line", 49
+ new $P93, "DecNum"
+ assign $P93, '-00.00'
+ $P94 = "abs"($P93)
+ new $P95, "DecNum"
+ assign $P95, '0.00'
+ $P96 = "is"($P94, $P95, "absx017")
+ .return ($P96)
+.end
+
+
+.namespace []
+.sub "absx018" :subid("28_1249943802") :outer("10_1249943802")
+.annotate "line", 50
+ new $P98, "DecNum"
+ assign $P98, '-00'
+ $P99 = "abs"($P98)
+ new $P100, "DecNum"
+ assign $P100, '0'
+ $P101 = "is"($P99, $P100, "absx018")
+ .return ($P101)
+.end
+
+
+.namespace []
+.sub "absx020" :subid("29_1249943802") :outer("10_1249943802")
+.annotate "line", 52
+ new $P103, "DecNum"
+ assign $P103, '-2000000'
+ $P104 = "abs"($P103)
+ new $P105, "DecNum"
+ assign $P105, '2000000'
+ $P106 = "is"($P104, $P105, "absx020")
+ .return ($P106)
+.end
+
+
+.namespace []
+.sub "absx021" :subid("30_1249943802") :outer("10_1249943802")
+.annotate "line", 53
+ new $P108, "DecNum"
+ assign $P108, '2000000'
+ $P109 = "abs"($P108)
+ new $P110, "DecNum"
+ assign $P110, '2000000'
+ $P111 = "is"($P109, $P110, "absx021")
+ .return ($P111)
+.end
+
+
+.namespace []
+.sub "absx022" :subid("31_1249943802") :outer("10_1249943802")
+.annotate "line", 55
+ new $P113, "DecNum"
+ assign $P113, '-2000000'
+ $P114 = "abs"($P113)
+ new $P115, "DecNum"
+ assign $P115, '2000000'
+ $P116 = "is"($P114, $P115, "absx022")
+ .return ($P116)
+.end
+
+
+.namespace []
+.sub "absx023" :subid("32_1249943802") :outer("10_1249943802")
+.annotate "line", 56
+ new $P118, "DecNum"
+ assign $P118, '2000000'
+ $P119 = "abs"($P118)
+ new $P120, "DecNum"
+ assign $P120, '2000000'
+ $P121 = "is"($P119, $P120, "absx023")
+ .return ($P121)
+.end
+
+
+.namespace []
+.sub "absx024" :subid("33_1249943802") :outer("10_1249943802")
+.annotate "line", 58
+ new $P123, "DecNum"
+ assign $P123, '-2000000'
+ $P124 = "abs"($P123)
+ new $P125, "DecNum"
+ assign $P125, '2.00000E+6'
+ $P126 = "is"($P124, $P125, "absx024")
+ .return ($P126)
+.end
+
+
+.namespace []
+.sub "absx025" :subid("34_1249943802") :outer("10_1249943802")
+.annotate "line", 59
+ new $P128, "DecNum"
+ assign $P128, '2000000'
+ $P129 = "abs"($P128)
+ new $P130, "DecNum"
+ assign $P130, '2.00000E+6'
+ $P131 = "is"($P129, $P130, "absx025")
+ .return ($P131)
+.end
+
+
+.namespace []
+.sub "absx026" :subid("35_1249943802") :outer("10_1249943802")
+.annotate "line", 61
+ new $P133, "DecNum"
+ assign $P133, '-2000000'
+ $P134 = "abs"($P133)
+ new $P135, "DecNum"
+ assign $P135, '2.00E+6'
+ $P136 = "is"($P134, $P135, "absx026")
+ .return ($P136)
+.end
+
+
+.namespace []
+.sub "absx027" :subid("36_1249943802") :outer("10_1249943802")
+.annotate "line", 62
+ new $P138, "DecNum"
+ assign $P138, '2000000'
+ $P139 = "abs"($P138)
+ new $P140, "DecNum"
+ assign $P140, '2.00E+6'
+ $P141 = "is"($P139, $P140, "absx027")
+ .return ($P141)
+.end
+
+
+.namespace []
+.sub "absx030" :subid("37_1249943802") :outer("10_1249943802")
+.annotate "line", 64
+ new $P143, "DecNum"
+ assign $P143, '+0.1'
+ $P144 = "abs"($P143)
+ new $P145, "DecNum"
+ assign $P145, '0.1'
+ $P146 = "is"($P144, $P145, "absx030")
+ .return ($P146)
+.end
+
+
+.namespace []
+.sub "absx031" :subid("38_1249943802") :outer("10_1249943802")
+.annotate "line", 65
+ new $P148, "DecNum"
+ assign $P148, '-0.1'
+ $P149 = "abs"($P148)
+ new $P150, "DecNum"
+ assign $P150, '0.1'
+ $P151 = "is"($P149, $P150, "absx031")
+ .return ($P151)
+.end
+
+
+.namespace []
+.sub "absx032" :subid("39_1249943802") :outer("10_1249943802")
+.annotate "line", 66
+ new $P153, "DecNum"
+ assign $P153, '+0.01'
+ $P154 = "abs"($P153)
+ new $P155, "DecNum"
+ assign $P155, '0.01'
+ $P156 = "is"($P154, $P155, "absx032")
+ .return ($P156)
+.end
+
+
+.namespace []
+.sub "absx033" :subid("40_1249943802") :outer("10_1249943802")
+.annotate "line", 67
+ new $P158, "DecNum"
+ assign $P158, '-0.01'
+ $P159 = "abs"($P158)
+ new $P160, "DecNum"
+ assign $P160, '0.01'
+ $P161 = "is"($P159, $P160, "absx033")
+ .return ($P161)
+.end
+
+
+.namespace []
+.sub "absx034" :subid("41_1249943802") :outer("10_1249943802")
+.annotate "line", 68
+ new $P163, "DecNum"
+ assign $P163, '+0.001'
+ $P164 = "abs"($P163)
+ new $P165, "DecNum"
+ assign $P165, '0.001'
+ $P166 = "is"($P164, $P165, "absx034")
+ .return ($P166)
+.end
+
+
+.namespace []
+.sub "absx035" :subid("42_1249943802") :outer("10_1249943802")
+.annotate "line", 69
+ new $P168, "DecNum"
+ assign $P168, '-0.001'
+ $P169 = "abs"($P168)
+ new $P170, "DecNum"
+ assign $P170, '0.001'
+ $P171 = "is"($P169, $P170, "absx035")
+ .return ($P171)
+.end
+
+
+.namespace []
+.sub "absx036" :subid("43_1249943802") :outer("10_1249943802")
+.annotate "line", 70
+ new $P173, "DecNum"
+ assign $P173, '+0.000001'
+ $P174 = "abs"($P173)
+ new $P175, "DecNum"
+ assign $P175, '0.000001'
+ $P176 = "is"($P174, $P175, "absx036")
+ .return ($P176)
+.end
+
+
+.namespace []
+.sub "absx037" :subid("44_1249943802") :outer("10_1249943802")
+.annotate "line", 71
+ new $P178, "DecNum"
+ assign $P178, '-0.000001'
+ $P179 = "abs"($P178)
+ new $P180, "DecNum"
+ assign $P180, '0.000001'
+ $P181 = "is"($P179, $P180, "absx037")
+ .return ($P181)
+.end
***The diff for this file has been truncated for email.***
=======================================
--- /trunk/aux/decTest/src/inc/procs.pir Mon Aug 10 12:38:55 2009
+++ /trunk/aux/decTest/src/inc/procs.pir Mon Aug 10 15:45:19 2009
@@ -3,6 +3,13 @@
.return ( x )
.end

+.sub abs
+ .param pmc x
+ .local pmc y
+ y = abs x
+ .return ( y )
+.end
+
.sub add
.param pmc x
.param pmc y
=======================================
--- /trunk/aux/decTest/src/pct/grammar.pg Mon Aug 10 12:38:55 2009
+++ /trunk/aux/decTest/src/pct/grammar.pg Mon Aug 10 15:45:19 2009
@@ -28,7 +28,7 @@
token operation {
[ 'fma' | 'multiply' | 'subtract' | 'divideint' | 'divide'
| 'remainder' | 'minus' | 'apply' | 'exp' | 'add' | 'ln'
- | 'log10' | 'power' ]
+ | 'log10' | 'power' | 'abs' ]
}

token decnumber {

Reply all
Reply to author
Forward
0 new messages