* removed warnings

compiler/daopt386.pas

@@ -1003,7 +1003,10 @@ Var
 {$endif AnalyzeLoops}
     Cnt, InstrCnt : Longint;
     InstrProp: TAsmInstrucProp;
-    p, hp: Pai;
+    p : Pai;
+{$Ifdef JumpAnal}
+    hp : pai;
+{$endif}
     TmpRef: TReference;
     TmpReg: TRegister;
 Begin
@@ -1453,7 +1456,10 @@ End.
 
 {
  $Log$
- Revision 1.9  1998-09-03 16:24:51  florian
+ Revision 1.10  1998-09-09 15:33:58  peter
+   * removed warnings
+
+ Revision 1.9  1998/09/03 16:24:51  florian
    * bug of type conversation from dword to real fixed
    * bug fix of Jonas applied
 

compiler/scandir.inc

@@ -235,35 +235,23 @@ const
               valint(hs1,l1,w);
               valint(hs2,l2,w);
               case t of
-                 EQUAL:
-                   b:=l1=l2;
-                 UNEQUAL:
-                   b:=l1<>l2;
-                 LT:
-                   b:=l1<l2;
-                 GT:
-                   b:=l1>l2;
-                 GTE:
-                   b:=l1>=l2;
-                 LTE:
-                   b:=l1<=l2;
+                 EQUAL : b:=l1=l2;
+               UNEQUAL : b:=l1<>l2;
+                    LT : b:=l1<l2;
+                    GT : b:=l1>l2;
+                   GTE : b:=l1>=l2;
+                   LTE : b:=l1<=l2;
               end;
            end
          else
            begin
               case t of
-                 EQUAL:
-                   b:=hs1=hs2;
-                 UNEQUAL:
-                   b:=hs1<>hs2;
-                 LT:
-                   b:=hs1<hs2;
-                 GT:
-                   b:=hs1>hs2;
-                 GTE:
-                   b:=hs1>=hs2;
-                 LTE:
-                   b:=hs1<=hs2;
+                 EQUAL : b:=hs1=hs2;
+               UNEQUAL : b:=hs1<>hs2;
+                    LT : b:=hs1<hs2;
+                    GT : b:=hs1>hs2;
+                   GTE : b:=hs1>=hs2;
+                   LTE : b:=hs1<=hs2;
               end;
            end;
          if b then
@@ -471,21 +459,26 @@ const
       var
         sw : tmoduleswitch;
       begin
+        sw:=cs_modulenone;
         case t of
            _DIR_SMARTLINK : sw:=cs_smartlink;
         end;
         current_scanner^.skipspace;
+        if sw<>cs_modulenone then
+         begin
            if c='-' then
             aktmoduleswitches:=aktmoduleswitches-[sw]
            else
             aktmoduleswitches:=aktmoduleswitches+[sw];
          end;
+      end;
 
 
     procedure dir_localswitch(t:tdirectivetoken);
       var
         sw : tlocalswitch;
       begin
+        sw:=cs_localnone;
 {$ifdef SUPPORT_MMX}
         case t of
           _DIR_MMX : sw:=cs_mmx;
@@ -493,11 +486,14 @@ const
         end;
 {$endif}
         current_scanner^.skipspace;
+        if sw<>cs_localnone then
+         begin
            if c='-' then
             aktlocalswitches:=aktlocalswitches-[sw]
            else
             aktlocalswitches:=aktlocalswitches+[sw];
          end;
+      end;
 
 
     procedure dir_include(t:tdirectivetoken);
@@ -915,7 +911,10 @@ const
 
 {
   $Log$
-  Revision 1.26  1998-09-03 11:24:02  peter
+  Revision 1.27  1998-09-09 15:33:59  peter
+    * removed warnings
+
+  Revision 1.26  1998/09/03 11:24:02  peter
     * moved more inputfile things from tscannerfile to tinputfile
     * changed ifdef Sourceline to cs_asm_source