e7e29d34ff
possible values. Add the PowerPC ncg and mcg backend support to let the test actually run, including modifying a bunch of PowrePC libem functions so that they can be called from both ncg and mcg.
29 lines
375 B
OpenEdge ABL
29 lines
375 B
OpenEdge ABL
#
|
|
(*$U+ -- enables underscores in identifiers *)
|
|
|
|
program markrelease;
|
|
|
|
type
|
|
charset = set of char;
|
|
|
|
var
|
|
s : charset;
|
|
i : integer;
|
|
|
|
procedure finished;
|
|
extern;
|
|
|
|
procedure fail(line: integer);
|
|
extern;
|
|
|
|
#define ASSERT(cond) \
|
|
if (not (cond)) then fail(__LINE__)
|
|
|
|
begin
|
|
s := [];
|
|
for i := 0 to 255 do
|
|
s := s + [chr(i)];
|
|
|
|
finished
|
|
end.
|