浏览代码

* align tempsize also on stackalignment

peter 26 年之前
父节点
当前提交
2e88fbde1a
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/temp_gen.pas

+ 5 - 2
compiler/temp_gen.pas

@@ -278,7 +278,7 @@ unit temp_gen;
 
     function gettempsize : longint;
       begin
-        gettempsize:=-lasttemp;
+        gettempsize:=Align(-lasttemp,target_os.stackalignment);
       end;
 
 
@@ -530,7 +530,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.27  1999-05-21 11:46:28  pierre
+  Revision 1.28  1999-05-21 17:23:47  peter
+    * align tempsize also on stackalignment
+
+  Revision 1.27  1999/05/21 11:46:28  pierre
    * bestsize bug fixed
 
   Revision 1.26  1999/05/19 11:51:00  pierre