fcl-passrc fails to accept type specifiers (private etc.) in an advanced record
Original Reporter info from Mantis: Michalis @michaliskambi
-
Reporter name: Michalis Kamburelis
Original Reporter info from Mantis: Michalis @michaliskambi
- Reporter name: Michalis Kamburelis
Description:
If you use advanced records ({$modeswitch advancedrecords}), this should be valid:
type
TGLSLUniform = record
strict private
A: string;
public
Owner: Integer;
Name: string;
Location: Integer;
end;
However, fcl-passrc fails to parse it:
$ fpc strict_private_in_advanced_record.pas
$ ./test_passrc strict_private_in_advanced_record.pas
An unhandled exception occurred at $0000000000477825:
EParserError: Record visibilities not allowed at this location. at token "Identifier private" in file strict_private_in_advanced_record.pas at line 9 column 16
Mantis conversion info:
- Mantis ID: 30724
- OS: Debian GNU/Linux
- OS Build: (testing)
- Build: 34702
- Platform: x86-64
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 35357 (#81a00358)
- Target version: 3.2.0