From 121f1a09a0a83cca0c6013726bdf530a7c5875dc Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 30 Jul 2001 21:39:26 +0000
Subject: [PATCH]   * declare fpu in rtl for m68k linux

---
 compiler/options.pas | 8 +++++++-
 compiler/ptconst.pas | 9 +++++++--
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/compiler/options.pas b/compiler/options.pas
index a2ef6d1006..21bd5a8d8d 100644
--- a/compiler/options.pas
+++ b/compiler/options.pas
@@ -1438,6 +1438,9 @@ begin
   if option.DoWriteLogo then
    option.WriteLogo;
 
+ if (target_info.target=target_m68k_linux) then
+   def_symbol('USE_FPU_IN_RTL');
+
 { Check file to compile }
   if param_file='' then
    begin
@@ -1563,7 +1566,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.49  2001-07-09 21:15:40  peter
+  Revision 1.50  2001-07-30 21:39:26  peter
+    * declare fpu in rtl for m68k linux
+
+  Revision 1.49  2001/07/09 21:15:40  peter
     * Length made internal
     * Add array support for Length
 
diff --git a/compiler/ptconst.pas b/compiler/ptconst.pas
index 374f414489..a5ddcf830e 100644
--- a/compiler/ptconst.pas
+++ b/compiler/ptconst.pas
@@ -683,6 +683,7 @@ implementation
                    consume(_LKLAMMER);
                    aktpos:=0;
                    srsym := tsym(trecorddef(t.def).symtable.symindex.first);
+                   recsym := nil;
                    while token<>_RKLAMMER do
                      begin
                         s:=pattern;
@@ -764,7 +765,8 @@ implementation
                  if assigned(srsym) and
                     { don't complain if there only come other variant parts }
                     { after the last initialized field                      }
-                    (tvarsym(srsym).address > tvarsym(recsym).address) then
+                    ((recsym=nil) or
+                     (tvarsym(srsym).address > tvarsym(recsym).address)) then
                    Message1(parser_h_skipped_fields_after,s);
 
                  for i:=1 to t.def.size-aktpos do
@@ -889,7 +891,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.28  2001-07-30 20:59:27  peter
+  Revision 1.29  2001-07-30 21:39:26  peter
+    * declare fpu in rtl for m68k linux
+
+  Revision 1.28  2001/07/30 20:59:27  peter
     * m68k updates from v10 merged
 
   Revision 1.27  2001/07/08 21:00:15  peter