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

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

git-svn-id: trunk@33142 -

compiler/ogbase.pas

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