ack/lang/pc/libpc/new.c

#include <stdlib.h>
#include <em_abs.h>
#include "pc.h"

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>`
Ansify and warning fix. 2018-06-17 20:30:27 +00:00			`#include "pc.h"`
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 _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;`
			`}`