On Thu, Feb 13, 2003 at 06:04:07PM -0000, Lee, John wrote:
> This isn't enought info! A bit more info needed eg what version/flavour of
> fpc, date, what source are you compiling...Regards John
Better yet, I've found out what the problem is...
unit dataChannels;
interface
uses
sysUtils, Functions, tokenizerClass, channelClass;
var
channels: PChannel;
nChannels: Integer;
Portion of dataChannels.pas
unit channelClass;
interface
uses
sysUtils, Functions, tokenizerClass;
type
TNicks = class(TObject)
constructor init(tmpNick: String);
destructor done;
private
nick: String;
modes: String;
lastMsg: longInt;
public
procedure setNick(tmpNick: String);
procedure addMode(tmpModes: String);
procedure delMode(tmpModes: String);
procedure update(cTime: longInt);
function getNick: String;
function getModes: String;
function getLastMsg: longInt;
end;
PNicks = ^TNicks;
type
TChannel = class(TObject)
constructor init(channel: String);
destructor done;
private
name: String;
topic: String;
nServices: Integer;
services: PNicks;
nNicks: Integer;
nicks: PNicks;
modes: String;
public
function getName: String;
procedure setTopic(s: String);
procedure addMode(tmpModes: String);
procedure delMode(tmpModes: String);
function getModes: String;
function getTopic: String;
procedure addService(nick: String);
procedure delService(nick: String);
function getService(index: Integer): TNicks;
function numServices: Integer;
procedure addNick(nick: String);
procedure delNick(nick: String);
function getNick(index: Integer): TNicks;
function numNicks: Integer;
end;
PChannel = ^TChannel;
implementation
Portion of channelclass.pas
unit sChanServ;
interface
uses
Services, ircCommands, Data, Functions, sysUtils, tokenizerClass,
Modules, Time, dbNicks, dataNicks, dbChannels, stringsClass, nickClass,
Config, dataChannels, channelClass;
.
.
.
procedure TChanServ.doLIST(source: String; data: String);
var
tokens: TTokenizer;
channel: String;
what: String;
index: Integer;
I: Integer;
begin
tokens := TTokenizer.init(data);
channel := tokens.nextToken;
what := tokens.nextToken;
tokens.done;
index := getChannel(channel);
if upperCase(what) = 'NICKS' then
begin
tellUser(self, source, #2 + '***' + #2 + ' List of nicks on ' +
channel + #32 + #2 + '***' + #2);
for I := 0 to (channels[index].numNicks - 1) do
begin
tellUser(self, source, intToStr((I + 1)) + ' :' +
channels[index].getNick(I).getNick);
end;
tellUser(self, source, #2 + '***' + #2 + ' End of List ' + #2 +
'***' + #2);
end
else
begin
tellUser(self, source, 'Invalid listing type.');
end;
end;
Portion of sChanServ.pas
tellUser(self, source, intToStr((I + 1)) + ' :' + channels[index].getNick(I).getNick);
This line of code access the dataChannels module, of the variable,
channels of type PChannels (declared in channelclass.pas). Yet it is
also accessing a class inside channelclass.pas,
uses
Services, ircCommands, Data, Functions, sysUtils, tokenizerClass,
Modules, Time, dbNicks, dataNicks, dbChannels, stringsClass, nickClass,
Config, dataChannels, channelClass;
What causes the internal problem is when the compiler cannot find the
procedure/function of the inner class, if channelClass is left out of
the uses delcaration, that internal error will come up. Which is
undocumented.
channelClass is only needed so that the compiler knows what .getNick is
after channels[index].getNick(I)
The compiler should probably say, '<sourceFile>(x,x) Error: Identifier not found
<symbol>
??
hope this helps.
cheers
James
>
> -----Original Message-----
> From: James Mills [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, February 13, 2003 17:21
> To: [EMAIL PROTECTED]
> Subject: [fpc-pascal]FPC Error! :(
>
>
> Hi,
>
> What on earth does: schanserv.pas(715) Fatal: Internal error 55665566
> mean ?
>
> cheers
> James
> _______________________________________________
> fpc-pascal maillist - [EMAIL PROTECTED]
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
> This e-mail and any attachment is for authorised use by the intended recipient(s)
>only. It may contain proprietary material, confidential information and/or be
>subject to legal privilege. It should not be copied, disclosed to, retained or used
>by, any other party. If you are not an intended recipient then please promptly
>delete this e-mail and any attachment and all copies and inform the sender. Thank
>you.
> _______________________________________________
> fpc-pascal maillist - [EMAIL PROTECTED]
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
