paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 05:10:17 +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; PSymbolMemInfo = ^TSymbolMemInfo;
TSymbolMemInfo = record TSymbolMemInfo = record
Addr : longint; Addr : longint;
LocalAddr : longint;
Size : longint; Size : longint;
PushSize : longint; PushSize : longint;
end; end;
@ -268,7 +267,7 @@ uses
CUtils, CUtils,
globtype,globals,comphook, globtype,globals,comphook,
finput,fmodule, finput,fmodule,
cpuinfo,aasmbase,aasmtai,paramgr, cpuinfo,cginfo,aasmbase,aasmtai,paramgr,
symsym,symdef,symtype,symbase; symsym,symdef,symtype,symbase;
const const
@ -1438,11 +1437,13 @@ end;
Symbol^.Flags:=(Symbol^.Flags or sfPointer); Symbol^.Flags:=(Symbol^.Flags or sfPointer);
Symbol^.RelatedTypeID:=longint(tpointerdef(vartype.def).pointertype.def); Symbol^.RelatedTypeID:=longint(tpointerdef(vartype.def).pointertype.def);
end; end;
MemInfo.Addr:=address; if Table.symtabletype in [recordsymtable,objectsymtable] then
if assigned(localvarsym) then MemInfo.Addr:=fieldoffset
MemInfo.LocalAddr:=localvarsym.address
else 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 if assigned(vartype.def) and (vartype.def.deftype=arraydef) then
begin begin
if tarraydef(vartype.def).highrange<tarraydef(vartype.def).lowrange then if tarraydef(vartype.def).highrange<tarraydef(vartype.def).lowrange then
@ -2111,7 +2112,10 @@ begin
end. end.
{ {
$Log$ $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 * preparations for different default calling conventions
* various RA fixes * various RA fixes

7
compiler/cclasses.pas
View File

@ -1616,6 +1616,8 @@ end;
newp.FIndexnr:=oldp.FIndexnr; newp.FIndexnr:=oldp.FIndexnr;
newp.FIndexNext:=oldp.FIndexNext; newp.FIndexNext:=oldp.FIndexNext;
data^[newp.FIndexnr]:=newp; data^[newp.FIndexnr]:=newp;
if First=oldp then
First:=newp;
{ update Linked List backward } { update Linked List backward }
i:=newp.FIndexnr; i:=newp.FIndexnr;
while (i>0) do while (i>0) do
@ -1866,7 +1868,10 @@ end;
end. end.
{ {
$Log$ $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 * insertlistafter added
Revision 1.22 2002/12/15 19:34:31 florian Revision 1.22 2002/12/15 19:34:31 florian