Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7983 | Rev 8097 | ||
---|---|---|---|
Line 348... | Line 348... | ||
348 | END PCharToStr; |
348 | END PCharToStr; |
Line 349... | Line 349... | ||
349 | 349 | ||
350 | 350 | ||
351 | PROCEDURE IntToStr (x: INTEGER; VAR str: ARRAY OF CHAR); |
351 | PROCEDURE IntToStr (x: INTEGER; VAR str: ARRAY OF CHAR); |
352 | VAR |
- | |
Line 353... | Line 352... | ||
353 | i, a, b: INTEGER; |
352 | VAR |
354 | c: CHAR; |
353 | i, a: INTEGER; |
- | 354 | ||
355 | 355 | BEGIN |
|
- | 356 | i := 0; |
|
- | 357 | a := x; |
|
- | 358 | REPEAT |
|
- | 359 | INC(i); |
|
- | 360 | a := a DIV 10 |
|
- | 361 | UNTIL a = 0; |
|
- | 362 | ||
- | 363 | str[i] := 0X; |
|
356 | BEGIN |
364 | |
357 | i := 0; |
365 | REPEAT |
358 | REPEAT |
- | |
359 | str[i] := CHR(x MOD 10 + ORD("0")); |
366 | DEC(i); |
360 | x := x DIV 10; |
- | |
361 | INC(i) |
- | |
362 | UNTIL x = 0; |
- | |
363 | - | ||
364 | a := 0; |
- | |
365 | b := i - 1; |
- | |
366 | WHILE a < b DO |
- | |
367 | c := str[a]; |
- | |
368 | str[a] := str[b]; |
- | |
369 | str[b] := c; |
- | |
370 | INC(a); |
- | |
371 | DEC(b) |
367 | str[i] := CHR(x MOD 10 + ORD("0")); |
Line 372... | Line 368... | ||
372 | END; |
368 | x := x DIV 10 |
373 | str[i] := 0X |
369 | UNTIL x = 0 |
374 | END IntToStr; |
370 | END IntToStr; |
Line 375... | Line 371... | ||
375 | 371 | ||
376 | 372 | ||
377 | PROCEDURE append (VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR); |
373 | PROCEDURE append (VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR); |
Line 378... | Line 374... | ||
378 | VAR |
374 | VAR |
Line 379... | Line -... | ||
379 | n1, n2, i, j: INTEGER; |
- | |
380 | - | ||
381 | BEGIN |
- | |
382 | n1 := LENGTH(s1); |
375 | n1, n2: INTEGER; |
383 | n2 := LENGTH(s2); |
- | |
384 | - | ||
385 | ASSERT(n1 + n2 < LEN(s1)); |
- | |
386 | - | ||
387 | i := 0; |
376 | |
388 | j := n1; |
377 | BEGIN |
Line 389... | Line 378... | ||
389 | WHILE i < n2 DO |
378 | n1 := LENGTH(s1); |
390 | s1[j] := s2[i]; |
379 | n2 := LENGTH(s2); |
391 | INC(i); |
380 | |
Line 392... | Line 381... | ||
392 | INC(j) |
381 | ASSERT(n1 + n2 < LEN(s1)); |
393 | END; |
382 | |
Line 413... | Line 402... | ||
413 | | 9: s := "CHR out of range" |
402 | | 9: s := "CHR out of range" |
414 | |10: s := "WCHR out of range" |
403 | |10: s := "WCHR out of range" |
415 | |11: s := "BYTE out of range" |
404 | |11: s := "BYTE out of range" |
416 | END; |
405 | END; |
Line 417... | Line -... | ||
417 | - | ||
418 | append(s, API.eol); |
- | |
419 | 406 | ||
420 | append(s, "module: "); PCharToStr(module, temp); append(s, temp); append(s, API.eol); |
407 | append(s, API.eol + "module: "); PCharToStr(_module, temp); append(s, temp); |
Line 421... | Line 408... | ||
421 | append(s, "line: "); IntToStr(line, temp); append(s, temp); |
408 | append(s, API.eol + "line: "); IntToStr(line, temp); append(s, temp); |
Line 422... | Line 409... | ||
422 | 409 | ||
423 | API.DebugMsg(SYSTEM.ADR(s[0]), name); |
410 | API.DebugMsg(SYSTEM.ADR(s[0]), name); |