Explorar o código

* Reduce object size, use ansistring. Results in faster compilation, less memory usage

Michaël Van Canneyt hai 2 meses
pai
achega
d2926867d6
Modificáronse 1 ficheiros con 7 adicións e 6 borrados
  1. 7 6
      compiler/ogwasm.pas

+ 7 - 6
compiler/ogwasm.pas

@@ -53,8 +53,8 @@ interface
 
 
       TWasmObjSymbolLinkingData = class
       TWasmObjSymbolLinkingData = class
       public
       public
-        ImportModule: string;
-        ImportName: string;
+        ImportModule: ansistring;
+        ImportName: ansistring;
 
 
         FuncType: TWasmFuncType;
         FuncType: TWasmFuncType;
         ExeFunctionIndex: Integer;
         ExeFunctionIndex: Integer;
@@ -81,7 +81,7 @@ interface
         SymbolIndex: Integer;
         SymbolIndex: Integer;
         GlobalIndex: Integer;
         GlobalIndex: Integer;
         TagIndex: Integer;
         TagIndex: Integer;
-        AliasOf: string;
+        AliasOf: ansistring;
         ExtraData: TWasmObjSymbolExtraData;
         ExtraData: TWasmObjSymbolExtraData;
         LinkingData: TWasmObjSymbolLinkingData;
         LinkingData: TWasmObjSymbolLinkingData;
         TlsGlobalSym: TWasmObjSymbol;
         TlsGlobalSym: TWasmObjSymbol;
@@ -113,9 +113,9 @@ interface
       TWasmObjSymbolExtraData = class(TFPHashObject)
       TWasmObjSymbolExtraData = class(TFPHashObject)
         TypeIdx: Integer;
         TypeIdx: Integer;
         ExceptionTagTypeIdx: Integer;
         ExceptionTagTypeIdx: Integer;
-        ImportModule: string;
-        ImportName: string;
-        ExportName: string;
+        ImportModule: ansistring;
+        ImportName: ansistring;
+        ExportName: ansistring;
         GlobalType: TWasmBasicType;
         GlobalType: TWasmBasicType;
         GlobalIsImmutable: Boolean;
         GlobalIsImmutable: Boolean;
         Locals: array of TWasmBasicType;
         Locals: array of TWasmBasicType;
@@ -6511,4 +6511,5 @@ initialization
 {$ifdef wasm32}
 {$ifdef wasm32}
   RegisterAssembler(as_wasm32_wasm_info,TWasmAssembler);
   RegisterAssembler(as_wasm32_wasm_info,TWasmAssembler);
 {$endif wasm32}
 {$endif wasm32}
+finalization
 end.
 end.