Browse Source

* Fixed syntax error

michael 27 years ago
parent
commit
94812a78c1
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/opts386.pas

+ 5 - 2
compiler/opts386.pas

@@ -60,7 +60,7 @@ begin
                  '3' : initglobalswitches:=initglobalswitches+[cs_optimize,cs_fastoptimize,cs_slowoptimize,cs_uncertainopts];
                  'p' :
                    Begin
-                     If j < Length(Opt)) Then
+                     If j < Length(Opt) Then
                        Begin
                          Case opt[j+1] Of
                            '1': initoptprocessor := Class386;
@@ -97,7 +97,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.13  1998-11-11 20:11:39  jonas
+  Revision 1.14  1998-11-12 09:00:26  michael
+  * Fixed syntax error
+
+  Revision 1.13  1998/11/11 20:11:39  jonas
     * lower optimization levels disable higher optimization level features
     * check if there actually is a character after -Op before comparing it with a number