Browse Source

* fixed warnings during compilation of an i8086 cross compiler

git-svn-id: trunk@30481 -
nickysn 10 years ago
parent
commit
068e3d93c7
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/ogomf.pas

+ 2 - 2
compiler/ogomf.pas

@@ -360,9 +360,9 @@ implementation
               vtAnsiString:
                 SegListStr[I]:=Segments.FindIndexOf(AnsiString(seglist[I].VAnsiString));
               vtWideString:
-                SegListStr[I]:=Segments.FindIndexOf(WideString(seglist[I].VWideString));
+                SegListStr[I]:=Segments.FindIndexOf(AnsiString(WideString(seglist[I].VWideString)));
               vtUnicodeString:
-                SegListStr[I]:=Segments.FindIndexOf(UnicodeString(seglist[I].VUnicodeString));
+                SegListStr[I]:=Segments.FindIndexOf(AnsiString(UnicodeString(seglist[I].VUnicodeString)));
               else
                 internalerror(2015040402);
             end;