浏览代码

+ added abi field to tsysteminfo

florian 22 年之前
父节点
当前提交
b1b16c8f09
共有 3 个文件被更改,包括 17 次插入5 次删除
  1. 5 2
      compiler/powerpc/nppccal.pas
  2. 6 1
      compiler/systems.pas
  3. 6 2
      compiler/systems/i_linux.pas

+ 5 - 2
compiler/powerpc/nppccal.pas

@@ -63,7 +63,7 @@ implementation
        if procdefinition is tprocdef then
          begin
             if tprocdef(procdefinition).parast.datasize>tppcprocinfo(current_procinfo).maxpushedparasize then
-              tppcprocinfo(current_procinfo).maxpushedparasize:=tprocdef(procdefinition).parast.datasize
+              tppcprocinfo(current_procinfo).maxpushedparasize:=tprocdef(procdefinition).parast.datasize;
          end
        else
          begin
@@ -128,7 +128,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.12  2003-05-16 23:15:51  jonas
+  Revision 1.13  2003-05-18 15:15:59  florian
+    + added abi field to tsysteminfo
+
+  Revision 1.12  2003/05/16 23:15:51  jonas
     * workaround for nested procedures until Peter fixes it properly :)
 
   Revision 1.11  2003/05/16 20:00:39  jonas

+ 6 - 1
compiler/systems.pas

@@ -147,6 +147,7 @@ interface
             ,script_dos,script_unix,script_amiga
        );
 
+       tabi = (abi_default,abi_powerpc_sysv,abi_powerpc_aix);
 
 {*****************************************************************************
                                Structures
@@ -274,6 +275,7 @@ interface
           stacksize       : longint;
           DllScanSupported : boolean;
           use_function_relative_addresses : boolean;
+          abi : tabi;
        end;
 
        pasmmodeinfo = ^tasmmodeinfo;
@@ -679,7 +681,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.60  2003-03-23 23:21:42  hajny
+  Revision 1.61  2003-05-18 15:15:59  florian
+    + added abi field to tsysteminfo
+
+  Revision 1.60  2003/03/23 23:21:42  hajny
     + emx target added
 
   Revision 1.59  2003/01/12 15:42:23  peter

+ 6 - 2
compiler/systems/i_linux.pas

@@ -217,7 +217,8 @@ unit i_linux;
             heapsize     : 256*1024;
             stacksize    : 32*1024*1024;
             DllScanSupported:false;
-            use_function_relative_addresses : true
+            use_function_relative_addresses : true;
+            abi : abi_powerpc_sysv;
           );
 
        system_alpha_linux_info : tsysteminfo =
@@ -446,7 +447,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.5  2003-04-30 15:45:35  florian
+  Revision 1.6  2003-05-18 15:15:59  florian
+    + added abi field to tsysteminfo
+
+  Revision 1.5  2003/04/30 15:45:35  florian
     * merged more x86-64/i386 code
 
   Revision 1.4  2003/02/06 22:36:55  mazen