It compiles but the if statement fails.const
UART_XPRESSBUS_REG_TX = @U2TXREG;
UART_XPRESSBUS_STATUS_TX = @U2TXREG;
UART_PC_REG_TX = @U1TXREG;
UART_PC_STATUS_TX = @U1TXREG;
begin
if UART_PC_STATUS_TX^.URXDA = 1 then
....
This works:
Code: Select all
type
PWord = ^Word;
var
UART_XPRESSBUS_REG_TX: PWord;
UART_XPRESSBUS_REG_RX: PWord;
UART_XPRESSBUS_STATUS: PWord;
UART_PC_REG_TX: PWord;
UART_PC_REG_RX: PWord;
UART_PC_STATUS: PWord;
begin
UART_XPRESSBUS_REG_TX := @U2TXREG;
UART_XPRESSBUS_REG_RX := @U2RXREG;
UART_XPRESSBUS_STATUS := @U2STA;
UART_PC_REG_TX := @U1TXREG;
UART_PC_REG_RX := @U1RXREG;
UART_PC_STATUS := @U1STA;
begin
if UART_PC_STATUS_TX^.URXDA = 1 then
....
Thanks,
Jim