🚀 go-pugleaf

I wrote the following Pascal program (X.PAS) :

	Program TestCfunction;

	{$L testc}

	Function mul10(N : Integer) : Integer; external;

	var
		num : Integer;

	begin
		Write('Enter a number: ');
		Readln(num);
		Writeln('Num = ',num);
		Writeln('The result is ',mul10(num));
	end.

and the following C function (TESTC.C) :

	int pascal mul10(int n) { return (10 * n); }

I compiled the C function via "bcc -c testc.c", then tried to compile
the Pascal program via "tpc x".  I got error msg:

	X.PAS(15): Error 51: Invalid PUBLIC definition (TESTC.OBJ).

Then I did "debug testc.obj" and changed the string "_TEXT" to "CODE",
also changing the count byte preceding _TEXT from 5 to 4.  Then I
recompiled the Pascal program and it compiled and runs just fine.

Pretty neat, eh?  How reliable is all of this?

************************************************************************
A note to new readers:  the weasely :-) symbol is frowned upon in this
group.  Any questions, see Phil Gustafson who will gladly rearrange your
diodes for you.
			- From the AFU FAQ -

	- pynq@quads.uchicago.edu, who is still costing the net
	  hundreds, if not thousands, of dollars, every time he posts -
************************************************************************