Przeglądaj źródła

+ added abi field to tsysteminfo

florian 22 lat temu
rodzic
commit
b1b16c8f09

+ 5 - 2
compiler/powerpc/nppccal.pas

@@ -63,7 +63,7 @@ implementation
        if procdefinition is tprocdef then
        if procdefinition is tprocdef then
          begin
          begin
             if tprocdef(procdefinition).parast.datasize>tppcprocinfo(current_procinfo).maxpushedparasize then
             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
          end
        else
        else
          begin
          begin
@@ -128,7 +128,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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 :)
     * workaround for nested procedures until Peter fixes it properly :)
 
 
   Revision 1.11  2003/05/16 20:00:39  jonas
   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
             ,script_dos,script_unix,script_amiga
        );
        );
 
 
+       tabi = (abi_default,abi_powerpc_sysv,abi_powerpc_aix);
 
 
 {*****************************************************************************
 {*****************************************************************************
                                Structures
                                Structures
@@ -274,6 +275,7 @@ interface
           stacksize       : longint;
           stacksize       : longint;
           DllScanSupported : boolean;
           DllScanSupported : boolean;
           use_function_relative_addresses : boolean;
           use_function_relative_addresses : boolean;
+          abi : tabi;
        end;
        end;
 
 
        pasmmodeinfo = ^tasmmodeinfo;
        pasmmodeinfo = ^tasmmodeinfo;
@@ -679,7 +681,10 @@ finalization
 end.
 end.
 {
 {
   $Log$
   $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
     + emx target added
 
 
   Revision 1.59  2003/01/12 15:42:23  peter
   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;
             heapsize     : 256*1024;
             stacksize    : 32*1024*1024;
             stacksize    : 32*1024*1024;
             DllScanSupported:false;
             DllScanSupported:false;
-            use_function_relative_addresses : true
+            use_function_relative_addresses : true;
+            abi : abi_powerpc_sysv;
           );
           );
 
 
        system_alpha_linux_info : tsysteminfo =
        system_alpha_linux_info : tsysteminfo =
@@ -446,7 +447,10 @@ initialization
 end.
 end.
 {
 {
   $Log$
   $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
     * merged more x86-64/i386 code
 
 
   Revision 1.4  2003/02/06 22:36:55  mazen
   Revision 1.4  2003/02/06 22:36:55  mazen