2 /** This is the body of the GPCP runtime support.
3 *
4 * Written November 1998, John Gough.
5 *
6 *
7 *
8 */
13 public class CPJrts
14 {
16 /* ==================================================================== *
17 * MOD and DIV helpers. With correction factors *
18 * ==================================================================== */
21 {
22 // A correction is required if the signs of
23 // the two operands are different, but the
24 // remainder is non-zero. Inc rem by rVal.
29 }
32 {
33 // A correction is required if the signs of
34 // the two operands are different, but the
35 // remainder is non-zero. Dec quo by 1.
39 rslt--;
41 }
44 {
45 // A correction is required if the signs of
46 // the two operands are different, but the
47 // remainder is non-zero. Inc rem by rVal.
52 }
55 {
56 // A correction is required if the signs of
57 // the two operands are different, but the
58 // remainder is non-zero. Dec quo by 1.
62 rslt--;
64 }
66 /* ==================================================================== *
67 * Various string and char-array helpers *
68 * ==================================================================== */
71 {
74 }
76 /* -------------------------------------------------------------------- */
79 {
84 }
86 /* -------------------------------------------------------------------- */
89 {
94 ix++;
97 }
99 /* -------------------------------------------------------------------- */
102 {
107 ix++;
110 }
112 /* -------------------------------------------------------------------- */
115 {
121 }
123 /* -------------------------------------------------------------------- */
126 {
130 }
132 /* -------------------------------------------------------------------- */
135 {
136 // This truncation makes semantics same as .NET version
139 }
141 /* -------------------------------------------------------------------- */
144 {
150 ix++;
152 }
154 /* -------------------------------------------------------------------- */
157 {
163 ix++;
165 }
167 /* -------------------------------------------------------------------- */
170 {
175 }
179 }
181 /* ==================================================================== *
182 * Class reflection helper methods *
183 * ==================================================================== */
208 }
209 }
230 }
231 }
234 /* ==================================================================== *
235 * Procedure variable reflection helper method *
236 * ==================================================================== */
239 {
248 }
253 }
254 }
256 /* ==================================================================== *
257 * String concatenation helper methods *
258 * ==================================================================== */
261 {
266 }
269 {
273 }
276 {
280 }
283 {
286 }
288 }