[fpc-devel] Is there a less clumsy way to define a weak procedure?

[Michael Ring]

I have to define a weak procedure in implementation of a unit to make 
the linker happy in a special case:

procedure vPortFree; external name 'vPortFree';

procedure vPortFreeStub; assembler; nostackframe;
asm
   .long vPortFree
   .weak vPortFree
   .set  vPortFree,vPortFreeStub
   bkpt
end;

is there a more elegant way to do this? My target is arm-freertos. The 
function is actually never called, this is why it consists of a bkpt.


Michael