* removed some obsolete version checks

compiler/aasm.pas

@@ -29,11 +29,7 @@ unit aasm;
 
     type
 {$ifdef i386}
-     {$ifndef VER0_99_5}
        bestreal = extended;
-     {$else}
-       bestreal = double;
-     {$endif}
 {$endif}
 {$ifdef m68k}
        bestreal = real;
@@ -916,7 +912,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.27  1998-12-11 00:02:37  peter
+  Revision 1.28  1998-12-16 00:27:16  peter
+    * removed some obsolete version checks
+
+  Revision 1.27  1998/12/11 00:02:37  peter
     + globtype,tokens,version unit splitted from globals
 
   Revision 1.26  1998/12/01 23:36:31  pierre

compiler/ag386int.pas

@@ -75,11 +75,7 @@ unit ag386int;
          hs : string;
          p : byte;
       begin
-{$ifdef VER0_99_5}
-         str(double(e),hs);
-{$else}
          str(e,hs);
-{$endif}
       { nasm expects a lowercase e }
          p:=pos('E',hs);
          if p>0 then
@@ -595,7 +591,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.22  1998-12-01 11:19:38  peter
+  Revision 1.23  1998-12-16 00:27:17  peter
+    * removed some obsolete version checks
+
+  Revision 1.22  1998/12/01 11:19:38  peter
     * fixed range problem with in [tasmop]
 
   Revision 1.21  1998/11/30 09:42:55  pierre

compiler/ag386nsm.pas

@@ -75,11 +75,7 @@ unit ag386nsm;
          hs : string;
          p : byte;
       begin
-{$ifdef VER0_99_5}
-         str(double(e),hs);
-{$else}
          str(e,hs);
-{$endif}
       { nasm expects a lowercase e }
          p:=pos('E',hs);
          if p>0 then
@@ -584,7 +580,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.15  1998-12-01 11:19:39  peter
+  Revision 1.16  1998-12-16 00:27:18  peter
+    * removed some obsolete version checks
+
+  Revision 1.15  1998/12/01 11:19:39  peter
     * fixed range problem with in [tasmop]
 
   Revision 1.14  1998/11/30 09:42:56  pierre

compiler/files.pas

@@ -199,11 +199,8 @@ unit files;
   implementation
 
   uses
-    dos,verbose,systems
+    dos,verbose,systems,
-{$ifndef VER0_99_8}
+    symtable,scanner;
-    ,symtable,scanner
-{$endif}
-    ;
 
 {****************************************************************************
                                   TINPUTFILE
@@ -840,7 +837,6 @@ unit files;
 
     procedure tmodule.reset;
       begin
-{$ifndef VER0_99_8}
         if assigned(scanner) then
           pscannerfile(scanner)^.invalid:=true;
         if assigned(globalsymtable) then
@@ -853,7 +849,6 @@ unit files;
             dispose(punitsymtable(localsymtable),done);
             localsymtable:=nil;
           end;
-{$endif}
         if assigned(map) then
          begin
            dispose(map);
@@ -982,10 +977,8 @@ unit files;
         if assigned(_exports) then
          dispose(_exports,done);
         _exports:=nil;
-{$ifndef VER0_99_8}
         if assigned(scanner) then
           pscannerfile(scanner)^.invalid:=true;
-{$endif}
         if assigned(sourcefiles) then
          dispose(sourcefiles,done);
         sourcefiles:=nil;
@@ -1004,14 +997,12 @@ unit files;
         stringdispose(modulename);
         stringdispose(mainsource);
         stringdispose(asmprefix);
-{$ifndef VER0_99_8}
         if assigned(globalsymtable) then
           dispose(punitsymtable(globalsymtable),done);
         globalsymtable:=nil;
         if assigned(localsymtable) then
           dispose(punitsymtable(localsymtable),done);
         localsymtable:=nil;
-{$endif}
         inherited done;
       end;
 
@@ -1055,7 +1046,10 @@ unit files;
 end.
 {
   $Log$
-  Revision 1.79  1998-12-11 00:03:14  peter
+  Revision 1.80  1998-12-16 00:27:19  peter
+    * removed some obsolete version checks
+
+  Revision 1.79  1998/12/11 00:03:14  peter
     + globtype,tokens,version unit splitted from globals
 
   Revision 1.78  1998/12/04 10:18:07  florian

compiler/i386.pas

@@ -1142,15 +1142,6 @@ unit i386;
     procedure reset_reference(var ref : treference);
 
       begin
-{$ifdef ver0_6}
-         ref.index:=R_NO;
-         ref.base:=R_NO;
-         ref.segment:=R_DEFAULT_SEG;
-         ref.offset:=0;
-         ref.scalefactor:=1;
-         ref.isintvalue:=false;
-         ref.symbol:=nil;
-{$else}
          with ref do
            begin
               index:=R_NO;
@@ -1161,7 +1152,6 @@ unit i386;
               isintvalue:=false;
               symbol:=nil;
            end;
-{$endif}
       end;
 
       function new_reference(base : tregister;offset : longint) : preference;
@@ -1751,7 +1741,10 @@ unit i386;
 end.
 {
   $Log$
-  Revision 1.20  1998-12-11 16:10:09  florian
+  Revision 1.21  1998-12-16 00:27:20  peter
+    * removed some obsolete version checks
+
+  Revision 1.20  1998/12/11 16:10:09  florian
     + shifting for 64 bit ints added
     * bug in getexplicitregister32 fixed: usableregs wasn't decremented !!
 

compiler/pp.pas

@@ -113,7 +113,7 @@ uses
 {$endif heaptrc}
 {$ifdef linux}
   catch,
-{$endif}  
+{$endif}
 {$endif FPC}
   globals,compiler
   ;
@@ -254,9 +254,7 @@ begin
   oldexit:=exitproc;
   exitproc:=@myexit;
 {$ifdef fpc}
-  {$ifndef autoobjpas}
+  heapblocks:=true;
-    heapblocks:=true;
-  {$endif}
 {$endif}
 {$ifdef UseOverlay}
   InitOverlay;
@@ -267,7 +265,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.36  1998-11-27 22:54:52  michael
+  Revision 1.37  1998-12-16 00:27:21  peter
+    * removed some obsolete version checks
+
+  Revision 1.36  1998/11/27 22:54:52  michael
   + Added catch unit again
 
   Revision 1.35  1998/11/05 12:02:53  peter