mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 09:09:47 +01:00
* comp is now written with its bit pattern to the ppu instead as an extended
This commit is contained in:
parent
cca5ca2ab9
commit
47a3437dba
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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)
|
||||
* ...
|
||||
|
||||
Loading…
Reference in New Issue
Block a user