[fpc-pascal] Re: fcl-passrc package question about source file and line number info

[Seth Grover]

I ran into another problem scenario, dealing with $include'd files.

Given these two files:

==iputils.pas========================================================
unit iputils;

{$mode objfpc}{$H+}

interface

{$define IPv6_Types}
{$include ip.inc}
{$undef IPv6_Types}

{$define IPv6_Interface}
{$include ip.inc}
{$undef IPv6_Interface}

implementation

{$define IPv6_Implementation}
{$include ip.inc}
{$undef IPv6_Implementation}

end.
=====================================================================

==ip.inc=============================================================
{$IFDEF IPv6_Types}
type IPv6Addr = array[0..15] of byte;
type IPv4Addr = longword;
{$ENDIF}

{$IFDEF IPv6_Interface}
function IsIPv4CompatibleIPv6Addr(const ipv6 : IPv6Addr) : boolean;
{$ENDIF}

{$IFDEF IPv6_Implementation}
function IsIPv4CompatibleIPv6Addr(const ipv6 : IPv6Addr) : boolean;
begin
  result := false;
end;
{$ENDIF}
=====================================================================

I get an error like this:

Syntax error at token "EOF" in file iputils.pas at line 21 column
-7202378 line:21 column:-7202378 file:iputils.pas
An unhandled exception occurred at $000000000046FCA1 :
EParserError : Syntax error at token "EOF" in file iputils.pas at line
21 column -7202378
  $000000000046FCA1
  $0000000000475C0C
  $0000000000474C83
  $0000000000474C3B
  $0000000000474396
  $00000000004091A4 line 1913 of test_parser.pp

Thanks,

-SG

--
This email is fiction. Any resemblance to actual events
or persons living or dead is purely coincidental.

Seth Grover