瀏覽代碼

pastojs: fixed else modeswitch

mattias 10 月之前
父節點
當前提交
1a3d651cfb
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      packages/pastojs/src/pas2jsfiler.pp

+ 3 - 0
packages/pastojs/src/pas2jsfiler.pp

@@ -1629,6 +1629,7 @@ end;
 
 function ModeSwitchToInt(ms: TModeSwitch): byte;
 begin
+  // these numbers are stored in files, so keep the values.
   case ms of
     msNone: Result:=0;
     msFpc: Result:=1;
@@ -1683,6 +1684,8 @@ begin
     msImplicitFunctionSpec: Result:=50;
     msMultiLineStrings: Result:=51;
     msDelphiMultiLineStrings: Result:=52;
+  else
+    Result:=0;
   end;
 end;