Browse Source

* small fixes for 0.99.5

peter 27 years ago
parent
commit
3a153e9a42
3 changed files with 30 additions and 8 deletions
  1. 8 1
      compiler/ag386int.pas
  2. 8 1
      compiler/ag386nsm.pas
  3. 14 6
      compiler/pp.pas

+ 8 - 1
compiler/ag386int.pas

@@ -72,7 +72,11 @@ unit ag386int;
          hs : string;
          hs : string;
          p : byte;
          p : byte;
       begin
       begin
+{$ifdef VER0_99_5}
+         str(double(e),hs);
+{$else}	 
          str(e,hs);
          str(e,hs);
+{$endif}	 
       { nasm expects a lowercase e }
       { nasm expects a lowercase e }
          p:=pos('E',hs);
          p:=pos('E',hs);
          if p>0 then
          if p>0 then
@@ -574,7 +578,10 @@ ait_stab_function_name : ;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.12  1998-08-08 10:19:17  florian
+  Revision 1.13  1998-08-10 15:49:38  peter
+    * small fixes for 0.99.5
+
+  Revision 1.12  1998/08/08 10:19:17  florian
     * small fixes to write the extended type correct
     * small fixes to write the extended type correct
 
 
   Revision 1.11  1998/06/05 17:46:02  peter
   Revision 1.11  1998/06/05 17:46:02  peter

+ 8 - 1
compiler/ag386nsm.pas

@@ -76,7 +76,11 @@ unit ag386nsm;
          hs : string;
          hs : string;
          p : byte;
          p : byte;
       begin
       begin
+{$ifdef VER0_99_5}
+         str(double(e),hs);
+{$else}	 
          str(e,hs);
          str(e,hs);
+{$endif}	 
       { nasm expects a lowercase e }
       { nasm expects a lowercase e }
          p:=pos('E',hs);
          p:=pos('E',hs);
          if p>0 then
          if p>0 then
@@ -561,7 +565,10 @@ ait_stab_function_name : ;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.5  1998-08-08 10:19:18  florian
+  Revision 1.6  1998-08-10 15:49:39  peter
+    * small fixes for 0.99.5
+
+  Revision 1.5  1998/08/08 10:19:18  florian
     * small fixes to write the extended type correct
     * small fixes to write the extended type correct
 
 
   Revision 1.4  1998/06/05 17:46:03  peter
   Revision 1.4  1998/06/05 17:46:03  peter

+ 14 - 6
compiler/pp.pas

@@ -220,11 +220,13 @@ end;
 begin
 begin
   oldexit:=exitproc;
   oldexit:=exitproc;
   exitproc:=@myexit;
   exitproc:=@myexit;
-{$ifdef linux}
-  heapblocks:=true;
-{$else}
-  {$ifdef go32v2}
+{$ifndef VER0_99_5}  
+  {$ifdef linux}
     heapblocks:=true;
     heapblocks:=true;
+  {$else}
+    {$ifdef go32v2}
+      heapblocks:=true;
+    {$endif}
   {$endif}
   {$endif}
 {$endif}
 {$endif}
 {$ifdef UseOverlay}
 {$ifdef UseOverlay}
@@ -236,7 +238,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.25  1998-08-10 14:50:16  peter
+  Revision 1.26  1998-08-10 15:49:40  peter
+    * small fixes for 0.99.5
+
+  Revision 1.25  1998/08/10 14:50:16  peter
     + localswitches, moduleswitches, globalswitches splitting
     + localswitches, moduleswitches, globalswitches splitting
 
 
   Revision 1.24  1998/08/10 10:18:32  peter
   Revision 1.24  1998/08/10 10:18:32  peter
@@ -246,7 +251,10 @@ end.
   Revision 1.23  1998/08/05 16:00:16  florian
   Revision 1.23  1998/08/05 16:00:16  florian
     * some fixes for ansi strings
     * some fixes for ansi strings
     * $log$ to $Log$
     * $log$ to $Log$
-    * $log$ to Revision 1.25  1998-08-10 14:50:16  peter
+    * $log$ to Revision 1.26  1998-08-10 15:49:40  peter
+    * $log$ to   * small fixes for 0.99.5
+    * $log$ to
+    * $log$ to Revision 1.25  1998/08/10 14:50:16  peter
     * $log$ to   + localswitches, moduleswitches, globalswitches splitting
     * $log$ to   + localswitches, moduleswitches, globalswitches splitting
     * $log$ to
     * $log$ to
     * $log$ to Revision 1.24  1998/08/10 10:18:32  peter
     * $log$ to Revision 1.24  1998/08/10 10:18:32  peter