* all references to comp suppressed for m68k

compiler/aasm.pas

@@ -224,8 +224,11 @@ unit aasm;
        tai_comp = object(tai)
           value : bestreal;
           constructor init(_value : bestreal);
+{$ifdef i386}
           { usefull for 64 bits apps, maybe later  }
+          { comp is not defined on m68k processors !! }
           constructor init_comp(_value : comp);
+{$endif i386}
        end;
 
 
@@ -566,6 +569,7 @@ uses
          value:=_value;
       end;
 
+{$ifdef i386}
     constructor tai_comp.init_comp(_value : comp);
 
       begin
@@ -573,6 +577,7 @@ uses
          typ:=ait_comp;
          value:=_value;
       end;
+{$endif i386}
 
 {****************************************************************************
                                TAI_STRING
@@ -907,7 +912,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.22  1998-10-12 12:20:38  pierre
+  Revision 1.23  1998-10-14 15:56:37  pierre
+    * all references to comp suppressed for m68k
+
+  Revision 1.22  1998/10/12 12:20:38  pierre
     + added tai_const_symbol_offset
       for r : pointer = @var.field;
     * better message for different arg names on implementation

compiler/ag68kgas.pas

@@ -76,7 +76,7 @@ unit ag68kgas;
          double2str:='0d'+hs
       end;
 
-
+(* TO SUPPORT SOONER OR LATER!!!
     function comp2str(d : bestreal) : string;
       type
         pdouble = ^double;
@@ -91,7 +91,7 @@ unit ag68kgas;
       {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
-      end;
+      end; *)
 
 
     function getreferencestring(const ref : treference) : string;
@@ -418,9 +418,10 @@ unit ag68kgas;
                       AsmWriteLn(#9'.extend'#9+double2str(pai_extended(hp)^.value));
                      { comp type is difficult to write so use double }
                      end;
+{ TO SUPPORT SOONER OR LATER!!!
           ait_comp : Begin
                        AsmWriteLn(#9'.double'#9+comp2str(pai_extended(hp)^.value));
-                     end;
+                     end;   }
         ait_direct : begin
                        AsmWritePChar(pai_direct(hp)^.str);
                        AsmLn;
@@ -678,7 +679,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.17  1998-10-13 13:10:08  peter
+  Revision 1.18  1998-10-14 15:56:39  pierre
+    * all references to comp suppressed for m68k
+
+  Revision 1.17  1998/10/13 13:10:08  peter
     * new style for m68k/i386 infos and enums
 
   Revision 1.16  1998/10/12 12:27:44  pierre

compiler/ag68kmit.pas

@@ -76,6 +76,7 @@ unit ag68kmit;
       end;
 
 
+(* TO SUPPORT SOONER OR LATER!!!
     function comp2str(d : bestreal) : string;
       type
         pdouble = ^double;
@@ -90,7 +91,7 @@ unit ag68kmit;
       {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
-      end;
+      end; *)
 
 
     function getreferencestring(const ref : treference) : string;
@@ -430,9 +431,10 @@ unit ag68kmit;
                        AsmWriteLn(#9'.extend'#9+double2str(pai_extended(hp)^.value));
                      { comp type is difficult to write so use double }
                      end;
+{ TO SUPPORT SOONER OR LATER!!!
           ait_comp : Begin
                        AsmWriteLn(#9'.double'#9+comp2str(pai_extended(hp)^.value));
-                     end;
+                     end; }
         ait_direct : begin
                        AsmWritePChar(pai_direct(hp)^.str);
                        AsmLn;
@@ -656,7 +658,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.13  1998-10-12 12:20:44  pierre
+  Revision 1.14  1998-10-14 15:56:40  pierre
+    * all references to comp suppressed for m68k
+
+  Revision 1.13  1998/10/12 12:20:44  pierre
     + added tai_const_symbol_offset
       for r : pointer = @var.field;
     * better message for different arg names on implementation

compiler/ag68kmot.pas

@@ -57,6 +57,7 @@ unit ag68kmot;
       end;
 
 
+(* TO SUPPORT SOONER OR LATER!!!
     function comp2str(d : bestreal) : string;
       type
         pdouble = ^double;
@@ -71,7 +72,7 @@ unit ag68kmot;
       {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
-      end;
+      end; *)
 
 
     function getreferencestring(const ref : treference) : string;
@@ -539,7 +540,10 @@ ait_labeled_instruction :
 end.
 {
   $Log$
-  Revision 1.11  1998-10-12 12:20:45  pierre
+  Revision 1.12  1998-10-14 15:56:41  pierre
+    * all references to comp suppressed for m68k
+
+  Revision 1.11  1998/10/12 12:20:45  pierre
     + added tai_const_symbol_offset
       for r : pointer = @var.field;
     * better message for different arg names on implementation

compiler/ag68kmpw.pas

@@ -53,6 +53,7 @@ unit ag68kmpw;
       end;
 
 
+(* TO SUPPORT SOONER OR LATER!!!
     function comp2str(d : bestreal) : string;
       type
         pdouble = ^double;
@@ -67,7 +68,7 @@ unit ag68kmpw;
       {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
-      end;
+      end; *)
 
     const
       line_length = 70;
@@ -578,7 +579,10 @@ ait_labeled_instruction :
 end.
 {
   $Log$
-  Revision 1.3  1998-10-12 12:20:47  pierre
+  Revision 1.4  1998-10-14 15:56:42  pierre
+    * all references to comp suppressed for m68k
+
+  Revision 1.3  1998/10/12 12:20:47  pierre
     + added tai_const_symbol_offset
       for r : pointer = @var.field;
     * better message for different arg names on implementation

compiler/assemble.pas

@@ -65,6 +65,7 @@ type
     Procedure AsmLn;
     procedure AsmCreate;
     procedure AsmClose;
+    procedure Synchronize;
     procedure WriteTree(p:paasmoutput);virtual;
     procedure WriteAsmList;virtual;
   end;
@@ -364,6 +365,54 @@ begin
    end;
 end;
 
+   {Touch Assembler and object time to ppu time is there is a ppufilename}
+procedure TAsmList.Synchronize;
+var
+  f : file;
+  l : longint;
+begin
+{$ifdef linux}
+  if not DoPipe then
+{$endif linux}
+    begin
+   {Touch Assembler time to ppu time is there is a ppufilename}
+     if Assigned(current_module^.ppufilename) then
+      begin
+        Assign(f,current_module^.ppufilename^);
+        {$I-}
+         reset(f,1);
+        {$I+}
+        if ioresult=0 then
+         begin
+           getftime(f,l);
+           close(f);
+           assign(f,asmfile);
+        {$I-}
+           reset(f,1);
+        {$I+}
+           if ioresult=0 then
+            begin
+              setftime(f,l);
+              close(f);
+            end;
+           if not(cs_asm_extern in aktglobalswitches) then
+             begin
+               assign(f,objfile);
+            {$I-}
+               reset(f,1);
+            {$I+}
+               if ioresult=0 then
+                begin
+                  setftime(f,l);
+                  close(f);
+                end;
+              end;
+         end;
+      end;
+     close(outfile);
+    end;
+end;
+
 
 procedure TAsmList.WriteTree(p:paasmoutput);
 begin
@@ -459,6 +508,7 @@ begin
   a^.WriteAsmList;
   a^.AsmClose;
   a^.DoAssemble;
+  a^.synchronize;
   dispose(a,Done);
 end;
 
@@ -476,7 +526,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.27  1998-10-13 16:50:01  pierre
+  Revision 1.28  1998-10-14 15:56:43  pierre
+    * all references to comp suppressed for m68k
+
+  Revision 1.27  1998/10/13 16:50:01  pierre
     * undid some changes of Peter that made the compiler wrong
       for m68k (I had to reinsert some ifdefs)
     * removed several memory leaks under m68k