diff --git a/compiler/cmsgs.pas b/compiler/cmsgs.pas
index d08fa6b1b6..ebddc8731e 100644
--- a/compiler/cmsgs.pas
+++ b/compiler/cmsgs.pas
@@ -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
diff --git a/compiler/powerpc/cpupi.pas b/compiler/powerpc/cpupi.pas
index 0245b74e3c..dc8c608ee5 100644
--- a/compiler/powerpc/cpupi.pas
+++ b/compiler/powerpc/cpupi.pas
@@ -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