瀏覽代碼

* winapi doesn't like pushing 8 byte record

peter 22 年之前
父節點
當前提交
6b06f9e985
共有 1 個文件被更改,包括 7 次插入3 次删除
  1. 7 3
      compiler/i386/cpupara.pas

+ 7 - 3
compiler/i386/cpupara.pas

@@ -96,11 +96,12 @@ unit cpupara;
               case def.deftype of
               case def.deftype of
                 recorddef :
                 recorddef :
                   begin
                   begin
-                    if (calloption=pocall_stdcall) and (def.size<=8) then
+                    { This is not true for the WinAPI expects (PFV)
+                     if (calloption=pocall_stdcall) and (def.size<=8) then
                      begin
                      begin
                        result:=false;
                        result:=false;
                        exit;
                        exit;
-                     end;
+                     end; }
                   end;
                   end;
                 arraydef :
                 arraydef :
                   begin
                   begin
@@ -249,7 +250,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.25  2003-09-08 18:28:51  peter
+  Revision 1.26  2003-09-09 15:55:05  peter
+    * winapi doesn't like pushing 8 byte record
+
+  Revision 1.25  2003/09/08 18:28:51  peter
     * fix compilerproc for default=oldfpccall
     * fix compilerproc for default=oldfpccall
 
 
   Revision 1.24  2003/09/07 22:09:35  peter
   Revision 1.24  2003/09/07 22:09:35  peter