2
0
Эх сурвалжийг харах

* commented out the actual ait_symbol asm output in the LLVM-MC asm writer, because it produces errors

git-svn-id: branches/wasm@46525 -
nickysn 5 жил өмнө
parent
commit
faf8ac4d2e

+ 16 - 14
compiler/wasm32/agllvmmc.pas

@@ -160,20 +160,22 @@ implementation
                 Str(tai_symbol(hp).sym.bind,s);
                 Str(tai_symbol(hp).sym.bind,s);
                 writer.AsmWrite(s);
                 writer.AsmWrite(s);
                 writer.AsmLn;
                 writer.AsmLn;
-                if not(tai_symbol(hp).has_value) then
-                  begin
-                    //if tai_symbol(hp).is_global then
-                    //  writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + '::')
-                    //else
-                      writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + ':');
-                  end
-                else
-                  begin
-                    if tai_symbol(hp).is_global then
-                      writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + '==' + tostr(tai_symbol(hp).value))
-                    else
-                      writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + '=' + tostr(tai_symbol(hp).value));
-                  end;
+                writer.AsmWriteLn(asminfo^.comment+'TODO: implement');
+                // TODO: resolve errors such as "LLVM ERROR: data symbols must have a size set with .size: RTTI_$SYSTEM_$$_formal"
+                //if not(tai_symbol(hp).has_value) then
+                //  begin
+                //    //if tai_symbol(hp).is_global then
+                //    //  writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + '::')
+                //    //else
+                //      writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + ':');
+                //  end
+                //else
+                //  begin
+                //    if tai_symbol(hp).is_global then
+                //      writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + '==' + tostr(tai_symbol(hp).value))
+                //    else
+                //      writer.AsmWriteLn(ApplyAsmSymbolRestrictions(tai_symbol(hp).sym.name) + '=' + tostr(tai_symbol(hp).value));
+                //  end;
               end;
               end;
             ait_symbol_end :
             ait_symbol_end :
               begin
               begin