From 6d8024afc4bf3a87793de4ea5a91631fd57fb213 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 9 Nov 2002 15:32:30 +0000
Subject: [PATCH]   * noopt for non-i386 targets

---
 compiler/psub.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/compiler/psub.pas b/compiler/psub.pas
index 10f07155ac..07645befc9 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -326,14 +326,12 @@ implementation
                 aktprocdef.usedregisters:=rg.usedinproc;
                 procinfo.aktproccode.insertlist(procinfo.aktentrycode);
                 procinfo.aktproccode.concatlist(procinfo.aktexitcode);
-{$ifdef i386}
-   {$ifndef NoOpt}
+{$ifndef NoOpt}
                 if (cs_optimize in aktglobalswitches) and
                 { do not optimize pure assembler procedures }
                    ((procinfo.flags and pi_is_assembler)=0)  then
                   Optimize(procinfo.aktproccode);
-   {$endif NoOpt}
-{$endif i386}
+{$endif NoOpt}
                 { save local data (casetable) also in the same file }
                 if assigned(procinfo.aktlocaldata) and
                    (not procinfo.aktlocaldata.empty) then
@@ -788,7 +786,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.72  2002-09-10 20:31:48  florian
+  Revision 1.73  2002-11-09 15:32:30  carl
+    * noopt for non-i386 targets
+
+  Revision 1.72  2002/09/10 20:31:48  florian
     * call to procinfo.after_header added
 
   Revision 1.71  2002/09/07 15:25:07  peter