paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* m68k doesn't support double (merged)

Browse Source
This commit is contained in:
peter 2001-05-09 19:58:45 +00:00
parent b45dde5c74
commit 68c1559651
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psystem.pas
View File

@ -246,7 +246,7 @@ begin
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
s32floattype.setdef(tfloatdef.create(s32real)); s32floattype.setdef(tfloatdef.create(s32real));
s64floattype.setdef(tfloatdef.create(s64real)); s64floattype.setdef(tfloatdef.create(s32real));
if (cs_fp_emulation in aktmoduleswitches) then if (cs_fp_emulation in aktmoduleswitches) then
s80floattype.setdef(tfloatdef.create(s32real))) s80floattype.setdef(tfloatdef.create(s32real)))
else else
@ -265,7 +265,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.15 2001-04-13 01:22:13 peter Revision 1.16 2001-05-09 19:58:45 peter
* m68k doesn't support double (merged)
Revision 1.15 2001/04/13 01:22:13 peter
* symtable change to classes * symtable change to classes
* range check generation and errors fixed, make cycle DEBUG=1 works * range check generation and errors fixed, make cycle DEBUG=1 works
* memory leaks fixed * memory leaks fixed

7
compiler/symdef.pas
View File

@ -684,7 +684,7 @@ interface
pbestrealtype : ^ttype = @s80floattype; pbestrealtype : ^ttype = @s80floattype;
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
pbestrealtype : ^ttype = @s64floattype; pbestrealtype : ^ttype = @s32floattype;
{$endif} {$endif}
{$ifdef alpha} {$ifdef alpha}
pbestrealtype : ^ttype = @s64floattype; pbestrealtype : ^ttype = @s64floattype;
@ -5522,7 +5522,10 @@ Const local_symtable_index : longint = $8001;
end. end.
{ {
$Log$ $Log$
Revision 1.31 2001-05-06 14:49:17 peter Revision 1.32 2001-05-09 19:58:45 peter
* m68k doesn't support double (merged)
Revision 1.31 2001/05/06 14:49:17 peter
* ppu object to class rewrite * ppu object to class rewrite
* move ppu read and write stuff to fppu * move ppu read and write stuff to fppu