paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 15:30:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* in the internal assembler writer, when starting a new object file, set the

Browse Source 
cputype to current_settings.cputype, instead of cpu_none (which indicates no
  restrictions)

git-svn-id: trunk@33142 -
This commit is contained in:
nickysn 2016-03-02 01:12:56 +00:00
parent c061a98e93
commit 87baa8c43f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogbase.pas
View File

@ -1433,7 +1433,7 @@ implementation
procedure TObjData.beforealloc; procedure TObjData.beforealloc;
begin begin
FCPUType:=cpu_none; FCPUType:=current_settings.cputype;
{ create stabs sections if debugging } { create stabs sections if debugging }
if assigned(StabsSec) then if assigned(StabsSec) then
begin begin
@ -1445,7 +1445,7 @@ implementation
procedure TObjData.beforewrite; procedure TObjData.beforewrite;
begin begin
FCPUType:=cpu_none; FCPUType:=current_settings.cputype;
{ create stabs sections if debugging } { create stabs sections if debugging }
if assigned(StabsSec) then if assigned(StabsSec) then
begin begin