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

* vmtpointer_offset must be adjusted in after_pass1 as well

Browse Source
This commit is contained in:
florian 2003-05-10 23:57:23 +00:00
parent 7b8ac3c767
commit 77d8f335aa
2 changed files with 11 additions and 4 deletions
compiler
cmsgs.pas
powerpc
cpupi.pas

9
compiler/cmsgs.pas
View File

@ -124,7 +124,7 @@ begin
msgparts:=n;
if n<>high(idxmax)+1 then
fail;
for i:=1to n do
for i:=1 to n do
begin
msgidxmax[i]:=idxmax[i-1];
getmem(msgidx[i],msgidxmax[i]*4);
@ -137,7 +137,7 @@ destructor TMessage.Done;
var
i : longint;
begin
for i:=1to msgparts do
for i:=1 to msgparts do
freemem(msgidx[i],msgidxmax[i]*4);
if msgallocsize>0 then
begin
@ -461,7 +461,10 @@ end;
end.
{
$Log$
Revision 1.7 2003-04-22 14:33:38 peter
Revision 1.8 2003-05-10 23:57:23 florian
* vmtpointer_offset must be adjusted in after_pass1 as well
Revision 1.7 2003/04/22 14:33:38 peter
* removed some notes/hints
Revision 1.6 2002/05/18 13:34:06 peter

6
compiler/powerpc/cpupi.pas
View File

@ -81,6 +81,7 @@ unit cpupi;
inc(procdef.parast.address_fixup,ofs);
inc(framepointer_offset,ofs);
inc(selfpointer_offset,ofs);
inc(vmtpointer_offset,ofs);
if cs_asm_source in aktglobalswitches then
aktproccode.insert(Tai_comment.Create(strpnew('Parameter copies start at: r1+'+tostr(procdef.parast.address_fixup))));
@ -114,7 +115,10 @@ begin
end.
{
$Log$
Revision 1.13 2003-05-09 19:00:30 jonas
Revision 1.14 2003-05-10 23:57:23 florian
* vmtpointer_offset must be adjusted in after_pass1 as well
Revision 1.13 2003/05/09 19:00:30 jonas
* call inherited after_header as well
Revision 1.12 2003/04/27 11:21:36 peter