ack/lang/pc/libpc/new.c

#include <stdlib.h>
#include <em_abs.h>
#include <pc_err.h>

extern void _trp(int);			/* called on error */

void _new(int n, void** ptr)
{
	void* p = malloc(n);
	if (!p)
		_trp(EHEAP);

	*ptr = p;
}

void _dis(int n, void** ptr)
{
	free(*ptr);
	*ptr = NULL;
}
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			`#include <stdlib.h>`
Replaced dis and new with modern implementations donated by erik@backerud.se. 2010-10-02 21:52:29 +00:00			`#include <em_abs.h>`
			`#include <pc_err.h>`
Initial revision 1984-07-20 10:44:57 +00:00
Replaced dis and new with modern implementations donated by erik@backerud.se. 2010-10-02 21:52:29 +00:00			`extern void _trp(int); /* called on error */`

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			`void _new(int n, void** ptr)`
Replaced dis and new with modern implementations donated by erik@backerud.se. 2010-10-02 21:52:29 +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			`void* p = malloc(n);`
			`if (!p)`
			`_trp(EHEAP);`
Replaced dis and new with modern implementations donated by erik@backerud.se. 2010-10-02 21:52:29 +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			`*ptr = p;`
			`}`
Replaced dis and new with modern implementations donated by erik@backerud.se. 2010-10-02 21:52:29 +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			`void _dis(int n, void** ptr)`
Replaced dis and new with modern implementations donated by erik@backerud.se. 2010-10-02 21:52:29 +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			`free(*ptr);`
			`*ptr = NULL;`
			`}`