瀏覽代碼

+ always call resolve_labels_complex, if DEBUG_WASM_GOTO is defined.
+ define DEBUG_WASM_GOTO in ppcwasm32.lpi (but not in the makefiles)

Nikolay Nikolov 1 年之前
父節點
當前提交
3892bb265e
共有 2 個文件被更改,包括 6 次插入2 次删除
  1. 4 2
      compiler/ppcwasm32.lpi
  2. 2 0
      compiler/wasm32/cpupi.pas

+ 4 - 2
compiler/ppcwasm32.lpi

@@ -8,6 +8,7 @@
         <MainUnitHasUsesSectionForAllUnits Value="False"/>
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
         <LRSInOutputDirectory Value="False"/>
         <CompatibilityMode Value="True"/>
       </Flags>
@@ -63,12 +64,13 @@
       </ConfigFile>
       <CustomOptions Value="-dwasm32
 -dnoopt
--dEXTDEBUG"/>
+-dEXTDEBUG
+-dDEBUG_WASM_GOTO"/>
       <OtherDefines Count="4">
         <Define0 Value="wasm32"/>
         <Define1 Value="noopt"/>
         <Define2 Value="EXTDEBUG"/>
-        <Define3 Value="WASM32_INTERNALASM"/>
+        <Define3 Value="DEBUG_WASM_GOTO"/>
       </OtherDefines>
     </Other>
   </CompilerOptions>

+ 2 - 0
compiler/wasm32/cpupi.pas

@@ -633,7 +633,9 @@ implementation
         replace_local_frame_pointer(aktproccode);
 
         labels_resolved:=resolve_labels_simple(aktproccode);
+{$ifndef DEBUG_WASM_GOTO}
         if not labels_resolved then
+{$endif DEBUG_WASM_GOTO}
           resolve_labels_complex(aktproccode);
 
         inherited postprocess_code;