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

* merged

Browse Source
This commit is contained in:
peter 1999-06-18 09:55:30 +00:00
parent 52df317e41
commit c261796ebf
2 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/link.pas
View File

@ -25,6 +25,11 @@ Unit link;
Interface
{ Needed for LFN support in path to the executable }
{$ifdef GO32V2}
{$define ALWAYSSHELL}
{$endif}
uses cobjects,files;
Type
@ -80,7 +85,7 @@ uses
;
{$ifndef linux}
Procedure Shell(command:string);
Procedure Shell(const command:string);
{ This is already defined in the linux.ppu for linux, need for the *
expansion under linux }
var
@ -271,10 +276,14 @@ begin
if not(cs_link_extern in aktglobalswitches) then
begin
swapvectors;
{$ifdef ALWAYSSHELL}
shell(command+' '+para);
{$else}
if useshell then
shell(command+' '+para)
else
exec(command,para);
{$endif}
swapvectors;
if (doserror<>0) then
begin
@ -645,9 +654,15 @@ end;
end.
{
$Log$
Revision 1.55 1999-06-15 13:57:31 peter
Revision 1.56 1999-06-18 09:55:30 peter
* merged
Revision 1.55 1999/06/15 13:57:31 peter
* merged
Revision 1.54.2.2 1999/06/18 09:51:55 peter
* always use shell() for go32v2 to support LFN
Revision 1.54.2.1 1999/06/15 13:51:56 peter
* also check ld-2.1.so for glibc 2.1, previous was only for 2.1.1

14
compiler/popt386.pas
View File

@ -1028,6 +1028,8 @@ Begin
(Pai386(hp1)^.opcode=A_PUSH) and
(Pai386(hp1)^.oper[0].typ = top_reg) And
(Pai386(hp1)^.oper[0].reg=Pai386(p)^.oper[0].reg) then
{ This can't be done, because the register which is popped
can still be used after the push (PFV)
If (Not(cs_regalloc in aktglobalswitches)) Then
Begin
hp2:=pai(hp1^.next);
@ -1038,7 +1040,7 @@ Begin
p:=hp2;
continue
End
Else
Else }
Begin
{ change it to a two op operation }
Pai386(p)^.oper[1].typ:=top_none;
@ -1052,7 +1054,7 @@ Begin
hp1 := Pai(p^.next);
AsmL^.Remove(hp1);
Dispose(hp1, Done)
End
End;
end;
A_PUSH:
Begin
@ -1519,7 +1521,13 @@ End.
{
$Log$
Revision 1.54 1999-05-27 19:44:49 peter
Revision 1.55 1999-06-18 09:55:31 peter
* merged
Revision 1.54.2.1 1999/06/18 09:52:40 peter
* pop;push -> mov (esp),reg always instead of being removed
Revision 1.54 1999/05/27 19:44:49 peter
* removed oldasm
* plabel -> pasmlabel
* -a switches to source writing automaticly