Răsfoiți Sursa

* comp is now written with its bit pattern to the ppu instead as an extended

florian 22 ani în urmă
părinte
comite
47a3437dba
4 a modificat fișierele cu 22 adăugiri și 10 ștergeri
  1. 6 3
      compiler/aasmtai.pas
  2. 5 2
      compiler/pdecsub.pas
  3. 5 2
      compiler/ppu.pas
  4. 6 3
      compiler/psub.pas

+ 6 - 3
compiler/aasmtai.pas

@@ -1050,14 +1050,14 @@ uses
     constructor tai_comp_64bit.ppuload(t:taitype;ppufile:tcompilerppufile);
       begin
         inherited ppuload(t,ppufile);
-        value:=ppufile.getreal;
+        ppufile.putdata(value,sizeof(value));
       end;
 
 
     procedure tai_comp_64bit.ppuwrite(ppufile:tcompilerppufile);
       begin
         inherited ppuwrite(ppufile);
-        ppufile.putreal(value);
+        ppufile.getdata(value,sizeof(value));
       end;
 
 
@@ -1814,7 +1814,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.23  2003-04-22 14:33:38  peter
+  Revision 1.24  2003-04-24 13:03:01  florian
+    * comp is now written with its bit pattern to the ppu instead as an extended
+
+  Revision 1.23  2003/04/22 14:33:38  peter
     * removed some notes/hints
 
   Revision 1.22  2003/04/22 10:09:34  daniel

+ 5 - 2
compiler/pdecsub.pas

@@ -98,7 +98,7 @@ implementation
         currpara:=tparaitem(pd.para.last);
         while assigned(currpara) do
          begin
-           { need high parameter ? }
+           { needs high parameter ? }
            if paramanager.push_high_param(currpara.paratype.def,pd.proccalloption) then
             begin
               if assigned(currpara.parasym) then
@@ -2129,7 +2129,10 @@ const
 end.
 {
   $Log$
-  Revision 1.114  2003-04-23 13:12:26  peter
+  Revision 1.115  2003-04-24 13:03:01  florian
+    * comp is now written with its bit pattern to the ppu instead as an extended
+
+  Revision 1.114  2003/04/23 13:12:26  peter
     * fix po_comp setting for fpc mode
 
   Revision 1.113  2003/04/23 10:12:51  peter

+ 5 - 2
compiler/ppu.pas

@@ -41,7 +41,7 @@ type
 {$endif Test_Double_checksum}
 
 const
-  CurrentPPUVersion=33;
+  CurrentPPUVersion=34;
 
 { buffer sizes }
   maxentrysize = 1024;
@@ -985,7 +985,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.32  2003-04-23 14:42:07  daniel
+  Revision 1.33  2003-04-24 13:03:01  florian
+    * comp is now written with its bit pattern to the ppu instead as an extended
+
+  Revision 1.32  2003/04/23 14:42:07  daniel
     * Further register allocator work. Compiler now smaller with new
       allocator than without.
     * Somebody forgot to adjust ppu version number

+ 6 - 3
compiler/psub.pas

@@ -115,9 +115,9 @@ implementation
               { insert in local symtable }
 {$ifdef powerpc}
               { this requires us to setup a stack frame, which gives problem in the linux syscall helpers (JM) }
-              if not(po_assembler in aktprocdef.procoptions) or
-                 not(paramanager.ret_in_reg(aktprocdef.rettype.def,aktprocdef.proccalloption)) then
+              if not(po_assembler in aktprocdef.procoptions) then
 {$endif powerpc}
+//                 not(paramanager.ret_in_reg(aktprocdef.rettype.def,aktprocdef.proccalloption)) then
                 begin
                   symtablestack.insert(aktprocdef.funcretsym);
                   symtablestack.insertvardata(aktprocdef.funcretsym);
@@ -884,7 +884,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.102  2003-04-23 12:35:34  florian
+  Revision 1.103  2003-04-24 13:03:01  florian
+    * comp is now written with its bit pattern to the ppu instead as an extended
+
+  Revision 1.102  2003/04/23 12:35:34  florian
     * fixed several issues with powerpc
     + applied a patch from Jonas for nested function calls (PowerPC only)
     * ...