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

* (Peter) patch to fix snapshot

Browse Source
This commit is contained in:
marco 2003-09-24 13:02:10 +00:00
parent 872c64b0a1
commit 88e866dcb7
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/browcol.pas
View File

@ -79,7 +79,6 @@ type
PSymbolMemInfo = ^TSymbolMemInfo;
TSymbolMemInfo = record
Addr : longint;
LocalAddr : longint;
Size : longint;
PushSize : longint;
end;
@ -268,7 +267,7 @@ uses
CUtils,
globtype,globals,comphook,
finput,fmodule,
cpuinfo,aasmbase,aasmtai,paramgr,
cpuinfo,cginfo,aasmbase,aasmtai,paramgr,
symsym,symdef,symtype,symbase;
const
@ -1438,11 +1437,13 @@ end;
Symbol^.Flags:=(Symbol^.Flags or sfPointer);
Symbol^.RelatedTypeID:=longint(tpointerdef(vartype.def).pointertype.def);
end;
MemInfo.Addr:=address;
if assigned(localvarsym) then
MemInfo.LocalAddr:=localvarsym.address
if Table.symtabletype in [recordsymtable,objectsymtable] then
MemInfo.Addr:=fieldoffset
else
MemInfo.LocalAddr:=0;
if localloc.loc=LOC_REFERENCE then
MemInfo.Addr:=localloc.reference.offset
else
MemInfo.Addr:=0;
if assigned(vartype.def) and (vartype.def.deftype=arraydef) then
begin
if tarraydef(vartype.def).highrange<tarraydef(vartype.def).lowrange then
@ -2111,7 +2112,10 @@ begin
end.
{
$Log$
Revision 1.34 2003-09-07 22:09:34 peter
Revision 1.35 2003-09-24 13:02:10 marco
* (Peter) patch to fix snapshot
Revision 1.34 2003/09/07 22:09:34 peter
* preparations for different default calling conventions
* various RA fixes

7
compiler/cclasses.pas
View File

@ -1616,6 +1616,8 @@ end;
newp.FIndexnr:=oldp.FIndexnr;
newp.FIndexNext:=oldp.FIndexNext;
data^[newp.FIndexnr]:=newp;
if First=oldp then
First:=newp;
{ update Linked List backward }
i:=newp.FIndexnr;
while (i>0) do
@ -1866,7 +1868,10 @@ end;
end.
{
$Log$
Revision 1.23 2003-06-09 12:19:34 peter
Revision 1.24 2003-09-24 13:02:10 marco
* (Peter) patch to fix snapshot
Revision 1.23 2003/06/09 12:19:34 peter
* insertlistafter added
Revision 1.22 2002/12/15 19:34:31 florian