瀏覽代碼

* removed obsolete nf_cargs flag

peter 22 年之前
父節點
當前提交
f4cffd4358
共有 3 個文件被更改,包括 13 次插入22 次删除
  1. 4 6
      compiler/ncgcal.pas
  2. 4 3
      compiler/ncgld.pas
  3. 5 13
      compiler/nld.pas

+ 4 - 6
compiler/ncgcal.pas

@@ -323,11 +323,6 @@ implementation
                  else
                    push_value_para;
                end
-             { filter array of const c styled args }
-             else if is_array_of_const(left.resulttype.def) and (nf_cargs in left.flags) then
-               begin
-                 { nothing, everything is already pushed }
-               end
              { formal def }
              else if (paraitem.paratype.def.deftype=formaldef) then
                begin
@@ -1122,7 +1117,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.140  2003-11-23 17:05:15  peter
+  Revision 1.141  2003-11-23 17:39:33  peter
+    * removed obsolete nf_cargs flag
+
+  Revision 1.140  2003/11/23 17:05:15  peter
     * register calling is left-right
     * parameter ordering
     * left-right calling inserts result parameter last

+ 4 - 3
compiler/ncgld.pas

@@ -704,8 +704,6 @@ implementation
         tmpreg  : tregister;
         paraloc : tparalocation;
       begin
-        if nf_cargs in flags then
-          internalerror(200310054);
         dovariant:=(nf_forcevaria in flags) or tarraydef(resulttype.def).isvariant;
         if dovariant then
          elesize:=8
@@ -892,7 +890,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.98  2003-10-29 19:48:50  peter
+  Revision 1.99  2003-11-23 17:39:33  peter
+    * removed obsolete nf_cargs flag
+
+  Revision 1.98  2003/10/29 19:48:50  peter
     * renamed mangeldname_prefix to make_mangledname and made it more
       generic
     * make_mangledname is now also used for internal threadvar/resstring

+ 5 - 13
compiler/nld.pas

@@ -1024,18 +1024,7 @@ implementation
                          hp.left:=ctypeconvnode.create(hp.left,s32bittype);
                      end;
                    floatdef :
-                     begin
-                       { C uses 64bit floats }
-                       if nf_cargs in flags then
-                         hp.left:=ctypeconvnode.create(hp.left,s64floattype)
-                       else
-                         hp.left:=ctypeconvnode.create(hp.left,pbestrealtype^);
-                     end;
-                   stringdef :
-                     begin
-                       if nf_cargs in flags then
-                         hp.left:=ctypeconvnode.create(hp.left,charpointertype);
-                     end;
+                     hp.left:=ctypeconvnode.create(hp.left,pbestrealtype^);
                    procvardef :
                      hp.left:=ctypeconvnode.create(hp.left,voidpointertype);
                    variantdef,
@@ -1251,7 +1240,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.116  2003-10-28 15:36:01  peter
+  Revision 1.117  2003-11-23 17:39:33  peter
+    * removed obsolete nf_cargs flag
+
+  Revision 1.116  2003/10/28 15:36:01  peter
     * absolute to object field supported, fixes tb0458
 
   Revision 1.115  2003/10/23 14:44:07  peter