// making only one procedure bugtest public in the interface section // makes all other bugtest procedures public as well! // Lazarus 2.0.0+dfsg-2 // FPC-Version: 3.0.4 // OS: Linux Debian 32 Bit
unit test; interface procedure bugtest( p1 : longint ); implementation procedure bugtest( p1 : longint ); begin end; procedure bugtest( p1 , p2 : longint ); begin end; procedure bugtest( p1 , p2 , p3 : longint ); begin end; begin end. // Somewhere in the main program bugtest( 1 ); bugtest( 1 , 2 ); bugtest( 1 , 2 , 3 ); _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal