Graeme Geldenhuys wrote:
>
> function CallerAddr: Pointer; assembler;
> const
> CallerIP = $4;
> asm
> mov eax, ebp
> call IsBadPointer
> test eax,eax
> jne @@Error
>
> mov eax, [ebp].CallerIP
> sub eax, 5 // 5 bytes for call
>
> push eax
> call IsBadPointer
> test eax,eax
> pop eax
> je @@Finish
>
> @@Error:
> xor eax, eax
> @@Finish:
> end;
By the way... Simply adding {$ASMMODE intel} at the top of the unit,
does not solve the problem either. It just moves the compiler message
down a few lines giving the following error.
/opt/git/dunit2/src/TestFramework.pas(2076,21) Error: Asm: 16 or 32 Bit
references not supported
Hence the reason I ask if there is a cross-platform function in FPC that
does similar to CallerAddr(..).
Regards,
- Graeme -
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
