paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* long line fix

Browse Source
This commit is contained in:
peter 1999-08-12 14:31:20 +00:00
parent 9160bc7ca5
commit 420127efe6
1 changed files with 46 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
compiler/symdef.inc
View File

@ -2973,66 +2973,66 @@ Const local_symtable_index : longint = $8001;
procedure tprocvardef.write_rtti_data;
var
pdc, pdc2, pdcbefore : pdefcoll;
methodkind, paracount, paraspec : byte;
methodkind, paracount, paraspec : byte;
begin
{ write method id and name }
rttilist^.concat(new(pai_const,init_8bit(tkmethod)));
write_rtti_name;
rttilist^.concat(new(pai_const,init_8bit(tkmethod)));
write_rtti_name;
{ write kind of method (can only be function or procedure)}
if retdef = pdef(voiddef) then { ### typecast shoudln't be necessary! (sg) }
methodkind := mkProcedure
else
methodkind := mkFunction;
rttilist^.concat(new(pai_const,init_8bit(methodkind)));
if retdef = pdef(voiddef) then { ### typecast shoudln't be necessary! (sg) }
methodkind := mkProcedure
else
methodkind := mkFunction;
rttilist^.concat(new(pai_const,init_8bit(methodkind)));
{ get # of parameters }
paracount:=0;
pdc:=para1;
while assigned(pdc) do
begin
inc(paracount);
inc(paracount);
pdc:=pdc^.next;
end;
rttilist^.concat(new(pai_const,init_8bit(paracount)));
rttilist^.concat(new(pai_const,init_8bit(paracount)));
{ write parameter info. The parameters must be written in reverse order
if this method uses right to left parameter pushing! }
pdc:=para1;
if assigned(pdc) and not (pocall_leftright in proccalloptions) then
while assigned(pdc^.next) do pdc := pdc^.next;
{ write parameter info. The parameters must be written in reverse order
if this method uses right to left parameter pushing! }
pdc:=para1;
if assigned(pdc) and not (pocall_leftright in proccalloptions) then
while assigned(pdc^.next) do pdc := pdc^.next;
while assigned(pdc) do
begin
case pdc^.paratyp of
vs_value: paraspec := 0;
vs_const: paraspec := pfConst;
vs_var : paraspec := pfVar;
end;
{ write flags for current parameter }
rttilist^.concat(new(pai_const,init_8bit(paraspec)));
{ write name of current parameter ### how can I get this??? (sg)}
rttilist^.concat(new(pai_const,init_8bit(0)));
{ write name of type of current parameter }
pdc^.data^.write_rtti_name;
if pocall_leftright in proccalloptions then
case pdc^.paratyp of
vs_value: paraspec := 0;
vs_const: paraspec := pfConst;
vs_var : paraspec := pfVar;
end;
{ write flags for current parameter }
rttilist^.concat(new(pai_const,init_8bit(paraspec)));
{ write name of current parameter ### how can I get this??? (sg)}
rttilist^.concat(new(pai_const,init_8bit(0)));
{ write name of type of current parameter }
pdc^.data^.write_rtti_name;
if pocall_leftright in proccalloptions then
pdc:=pdc^.next
else
begin
{ find previous argument }
pdcbefore := nil;
pdc2 := para1;
while pdc2 <> pdc do
begin
pdcbefore := pdc2;
pdc2 := pdc2^.next;
end;
pdc := pdcbefore;
end;
else
begin
{ find previous argument }
pdcbefore := nil;
pdc2 := para1;
while pdc2 <> pdc do
begin
pdcbefore := pdc2;
pdc2 := pdc2^.next;
end;
pdc := pdcbefore;
end;
end;
{ write name of result type }
retdef^.write_rtti_name;
retdef^.write_rtti_name;
end;
@ -3531,7 +3531,8 @@ Const local_symtable_index : longint = $8001;
else
begin
{ virtual method, write vmt offset }
rttilist^.concat(new(pai_const,init_32bit(pprocdef(def)^._class^.vmtmethodoffset(pprocdef(def)^.extnumber))));
rttilist^.concat(new(pai_const,init_32bit(
pprocdef(def)^._class^.vmtmethodoffset(pprocdef(def)^.extnumber))));
typvalue:=2;
end;
end;
@ -3703,7 +3704,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.150 1999-08-11 08:56:53 michael
Revision 1.151 1999-08-12 14:31:20 peter
* long line fix
Revision 1.150 1999/08/11 08:56:53 michael
* RTTI fix from Sebastian Guenther
Revision 1.149 1999/08/10 13:22:08 pierre