paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 06:41:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Extra patch from peter

Browse Source
This commit is contained in:
michael 2000-10-24 08:54:25 +00:00
parent 258c5e0489
commit e2b535ec80
1 changed files with 5 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/i386/cgai386.pas
View File

@ -2014,20 +2014,6 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
if (not inlined) and (aktprocsym^.definition^.proctypeoption=potype_proginit) then
begin
emitinsertcall('FPC_INITIALIZEUNITS');
if target_info.target=target_I386_WIN32 then
begin
new(hr);
reset_reference(hr^);
hr^.symbol:=newasmsymbol(
'U_SYSWIN32_ISCONSOLE');
if apptype=at_cui then
exprasmlist^.insert(new(paicpu,op_const_ref(A_MOV,S_B,
1,hr)))
else
exprasmlist^.insert(new(paicpu,op_const_ref(A_MOV,S_B,
0,hr)));
end;
oldlist:=exprasmlist;
exprasmlist:=new(paasmoutput,init);
p:=symtablestack;
@ -2815,7 +2801,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.2 2000-10-24 07:20:03 pierre
Revision 1.3 2000-10-24 08:54:25 michael
+ Extra patch from peter
Revision 1.2 2000/10/24 07:20:03 pierre
* fix for bug 1193 (merged)
Revision 1.1 2000/10/15 09:47:42 peter
@ -2896,4 +2885,4 @@ end.
Revision 1.2 2000/07/13 11:32:37 michael
+ removed logs
}
}