소스 검색

* fixed warnings during compilation of an i8086 cross compiler

git-svn-id: trunk@30481 -
nickysn 10 년 전
부모
커밋
068e3d93c7
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  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;