Browse Source

* function returning int64 inlining fixed

peter 24 years ago
parent
commit
25535227b4
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/i386/n386cal.pas

+ 5 - 2
compiler/i386/n386cal.pas

@@ -460,7 +460,7 @@ implementation
                   para_alignment,para_offset);
                   para_alignment,para_offset);
            end;
            end;
          if inlined then
          if inlined then
-           inlinecode.retoffset:=gettempofsizepersistant(4);
+           inlinecode.retoffset:=gettempofsizepersistant(Align(resulttype.def.size,target_info.stackalignment));
          if ret_in_param(resulttype.def) then
          if ret_in_param(resulttype.def) then
            begin
            begin
               { This must not be counted for C code
               { This must not be counted for C code
@@ -1551,7 +1551,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.23  2001-05-16 15:11:42  jonas
+  Revision 1.24  2001-05-19 21:22:53  peter
+    * function returning int64 inlining fixed
+
+  Revision 1.23  2001/05/16 15:11:42  jonas
     * added missign begin..end pair (noticed by Carl)
     * added missign begin..end pair (noticed by Carl)
 
 
   Revision 1.22  2001/04/18 22:02:01  peter
   Revision 1.22  2001/04/18 22:02:01  peter