paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 11:59:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* remove RecOffset code, that created problems

Browse Source
This commit is contained in:
pierre 2000-11-02 12:04:10 +00:00
parent 5115083270
commit f6bfcc9cb7
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/symdef.pas
View File

@ -2827,7 +2827,7 @@ implementation
{$ifdef GDB}
Const StabRecString : pchar = Nil;
StabRecSize : longint = 0;
RecOffset : Longint = 0;
{RecOffset : Longint = 0;}
procedure addname(p : pnamedindexobject);
var
@ -2869,8 +2869,8 @@ implementation
end;
strcat(StabRecstring,newrec);
strdispose(newrec);
{This should be used for case !!}
RecOffset := RecOffset + pvarsym(p)^.vartype.def^.size;
{This should be used for case !!
RecOffset := RecOffset + pvarsym(p)^.vartype.def^.size;}
end;
end;
@ -2884,7 +2884,7 @@ implementation
GetMem(stabrecstring,memsizeinc);
stabrecsize:=memsizeinc;
strpcopy(stabRecString,'s'+tostr(size));
RecOffset := 0;
{RecOffset := 0;}
symtable^.foreach({$ifdef FPCPROCVAR}@{$endif}addname);
{ FPC doesn't want to convert a char to a pchar}
{ is this a bug ? }
@ -4422,8 +4422,8 @@ Const local_symtable_index : longint = $8001;
strcat(StabRecstring,newrec);
{freemem(newrec,memsizeinc); }
strdispose(newrec);
{This should be used for case !!}
RecOffset := RecOffset + pd^.size;
{This should be used for case !!
RecOffset := RecOffset + pd^.size;}
end;
end;
@ -4450,7 +4450,7 @@ Const local_symtable_index : longint = $8001;
strpcopy(strend(stabrecstring),'!1,020,'+childof^.classnumberstring+';');
end;
{virtual table to implement yet}
RecOffset := 0;
{RecOffset := 0;}
symtable^.foreach({$ifdef FPCPROCVAR}@{$endif}addname);
if (oo_has_vmt in objectoptions) then
if not assigned(childof) or not(oo_has_vmt in childof^.objectoptions) then
@ -5081,7 +5081,10 @@ Const local_symtable_index : longint = $8001;
end.
{
$Log$
Revision 1.2 2000-11-01 23:04:38 peter
Revision 1.3 2000-11-02 12:04:10 pierre
* remove RecOffset code, that created problems
Revision 1.2 2000/11/01 23:04:38 peter
* tprocdef.fullprocname added for better casesensitve writing of
procedures