* m68k doesn't support double (merged)

compiler/psystem.pas

@@ -246,7 +246,7 @@ begin
 {$endif}
 {$ifdef m68k}
   s32floattype.setdef(tfloatdef.create(s32real));
-  s64floattype.setdef(tfloatdef.create(s64real));
+  s64floattype.setdef(tfloatdef.create(s32real));
   if (cs_fp_emulation in aktmoduleswitches) then
    s80floattype.setdef(tfloatdef.create(s32real)))
   else
@@ -265,7 +265,10 @@ end;
 end.
 {
   $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
     * range check generation and errors fixed, make cycle DEBUG=1 works
     * memory leaks fixed

compiler/symdef.pas

@@ -684,7 +684,7 @@ interface
        pbestrealtype : ^ttype = @s80floattype;
 {$endif}
 {$ifdef m68k}
-       pbestrealtype : ^ttype = @s64floattype;
+       pbestrealtype : ^ttype = @s32floattype;
 {$endif}
 {$ifdef alpha}
        pbestrealtype : ^ttype = @s64floattype;
@@ -5522,7 +5522,10 @@ Const local_symtable_index : longint = $8001;
 end.
 {
   $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
     * move ppu read and write stuff to fppu