ack/tests/plat/newdispose_p.p

#
(*$U+ -- enables underscores in identifiers *)

program markrelease;

type
    iptr = ^integer;

var
    ptr1 : iptr;
    ptr2 : iptr;

procedure finished;
    extern;

procedure fail(line: integer);
    extern;

#define ASSERT(cond) \
    if (not (cond)) then fail(__LINE__)

begin
    New(ptr1);
    New(ptr2);
    ASSERT(ptr1 <> ptr2);

    Dispose(ptr1);
    Dispose(ptr2);
    (* Not required by the Pascal standard, but our implementation sets the
     * pointers to NULL after freeing them. *)
    ASSERT(ptr1 = ptr2);

    finished
end.
Remove the Mark() and Release() procedures from the Pascal compiler and standard library, because they never worked and come from an achingly old version of the Pascal specification. Fix the implementations of New() and Dispose() to use the standard C memory allocator rather than rolling their own (also in C). Write test! 2016-11-24 19:35:26 +00:00			`#`
			`($U+ -- enables underscores in identifiers )`

			`program markrelease;`

			`type`
			`iptr = ^integer;`

			`var`
			`ptr1 : iptr;`
			`ptr2 : iptr;`
Add a test (currently failing) to check that Pascal char sets can store all 256 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. 2017-01-15 21:28:14 +00:00
Remove the Mark() and Release() procedures from the Pascal compiler and standard library, because they never worked and come from an achingly old version of the Pascal specification. Fix the implementations of New() and Dispose() to use the standard C memory allocator rather than rolling their own (also in C). Write test! 2016-11-24 19:35:26 +00:00			`procedure finished;`
			`extern;`

			`procedure fail(line: integer);`
			`extern;`
Add a test (currently failing) to check that Pascal char sets can store all 256 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. 2017-01-15 21:28:14 +00:00
Remove the Mark() and Release() procedures from the Pascal compiler and standard library, because they never worked and come from an achingly old version of the Pascal specification. Fix the implementations of New() and Dispose() to use the standard C memory allocator rather than rolling their own (also in C). Write test! 2016-11-24 19:35:26 +00:00			`#define ASSERT(cond) \`
			`if (not (cond)) then fail(__LINE__)`

			`begin`
			`New(ptr1);`
			`New(ptr2);`
			`ASSERT(ptr1 <> ptr2);`

			`Dispose(ptr1);`
			`Dispose(ptr2);`
			`(* Not required by the Pascal standard, but our implementation sets the`
			`* pointers to NULL after freeing them. *)`
			`ASSERT(ptr1 = ptr2);`

			`finished`
			`end.`