paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 11:49:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small fixes for 0.99.5

Browse Source
This commit is contained in:
peter 1998-08-10 15:49:38 +00:00
parent c9ec04cd7d
commit 3a153e9a42
3 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ag386int.pas
View File

@ -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

9
compiler/ag386nsm.pas
View File

@ -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

20
compiler/pp.pas
View File

@ -220,11 +220,13 @@ end;
begin begin
oldexit:=exitproc; oldexit:=exitproc;
exitproc:=@myexit; exitproc:=@myexit;
{$ifdef linux} {$ifndef VER0_99_5}
heapblocks:=true; {$ifdef linux}
{$else}
{$ifdef go32v2}
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