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

* optimization in thlcgwasm.resize_stack_int_val to avoid some redundant conversions

Nikolay Nikolov 22 hours ago
parent
4ad6636f05
commit
12bfa69736
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      compiler/wasm32/hlcgcpu.pas

+ 1 - 1
compiler/wasm32/hlcgcpu.pas
View File 

@@ -2831,7 +2831,7 @@ implementation
 
                   internalerror(2021010302);
 
                   internalerror(2021010302);
 
               end;
 
               end;
 
             end
 
             end
 
-          else if tcgsize2size[fromcgsize]>=tcgsize2size[tocgsize] then
 
+          else if (tcgsize2size[fromcgsize]>=tcgsize2size[tocgsize]) and (fromcgsize<>tocgsize) then
 
             begin
 
             begin
 
               { truncate }
 
               { truncate }
 
               case tocgsize of
 
               case tocgsize of