Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fixed warning

Nikolay Nikolov 3 years ago
parent
b913133152
commit
4ebf857ffc
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      compiler/ogwasm.pas

+ 1 - 0
compiler/ogwasm.pas
View File 

@@ -217,6 +217,7 @@ implementation
 
         b: byte;
 
         b: byte;
 
         shift:integer;
 
         shift:integer;
 
       begin
 
       begin
 
+        b:=0;
 
         result:=0;
 
         result:=0;
 
         shift:=0;
 
         shift:=0;
 
         repeat
 
         repeat