Browse Source

Merged revisions 6757,6761 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

r6757 (florian)
+ bool64bit support to ppudump


r6761 (florian)
* set temp. start properly when omitting stackframe

git-svn-id: branches/fixes_2_2@6765 -

florian 18 years ago
parent
commit
3ef2204079
2 changed files with 5 additions and 2 deletions
  1. 3 1
      compiler/arm/cpupi.pas
  2. 2 1
      compiler/utils/ppudump.pp

+ 3 - 1
compiler/arm/cpupi.pas

@@ -63,7 +63,9 @@ unit cpupi;
           this extra memory should hurt less than generating all local contants with offsets
           this extra memory should hurt less than generating all local contants with offsets
           >256 as non shifter constants }
           >256 as non shifter constants }
         if tg.direction = -1 then
         if tg.direction = -1 then
-          tg.setfirsttemp(-12-28);
+          tg.setfirsttemp(-12-28)
+        else
+          tg.setfirsttemp(maxpushedparasize);
       end;
       end;
 
 
 
 

+ 2 - 1
compiler/utils/ppudump.pp

@@ -1651,7 +1651,7 @@ type
     uvoid,
     uvoid,
     u8bit,u16bit,u32bit,u64bit,
     u8bit,u16bit,u32bit,u64bit,
     s8bit,s16bit,s32bit,s64bit,
     s8bit,s16bit,s32bit,s64bit,
-    bool8bit,bool16bit,bool32bit,
+    bool8bit,bool16bit,bool32bit,bool64bit,
     uchar,uwidechar,scurrency
     uchar,uwidechar,scurrency
   );
   );
   tobjecttyp = (odt_none,
   tobjecttyp = (odt_none,
@@ -1708,6 +1708,7 @@ begin
                bool8bit  : writeln('bool8bit');
                bool8bit  : writeln('bool8bit');
                bool16bit : writeln('bool16bit');
                bool16bit : writeln('bool16bit');
                bool32bit : writeln('bool32bit');
                bool32bit : writeln('bool32bit');
+               bool64bit : writeln('bool64bit');
                uchar     : writeln('uchar');
                uchar     : writeln('uchar');
                uwidechar : writeln('uwidechar');
                uwidechar : writeln('uwidechar');
                scurrency : writeln('ucurrency');
                scurrency : writeln('ucurrency');