소스 검색

* PChar -> PAnsiChar fixes

Michael VAN CANNEYT 2 년 전
부모
커밋
65caab753f
3개의 변경된 파일8개의 추가작업 그리고 4개의 파일을 삭제
  1. 2 2
      packages/winunits-base/src/comobj.pp
  2. 1 1
      packages/winunits-jedi/src/ModuleLoader.pas
  3. 5 1
      packages/winunits-jedi/src/jedi.inc

+ 2 - 2
packages/winunits-base/src/comobj.pp

@@ -1228,8 +1228,8 @@ HKCR
                         if printcom then 
                         writeln('Translating var ansistring argument ',PString(Params^)^);
 {$endif DEBUG_COMDISPATCH}
-                        StringMap[NextString].ComStr:=StringToOleStr(PString(Params^)^);
-                        StringMap[NextString].PasStr:=PString(Params^);
+                        StringMap[NextString].ComStr:=StringToOleStr(PAnsiString(Params^)^);
+                        StringMap[NextString].PasStr:=PAnsiString(Params^);
                         StringMap[NextString].PasWStr:=Nil;
                         Arguments[i].VType:=varOleStr or varByRef;
                         Arguments[i].VPointer:=@StringMap[NextString].ComStr;

+ 1 - 1
packages/winunits-jedi/src/ModuleLoader.pas

@@ -1,4 +1,4 @@
-****************************************************************}
+{******************************************************************}
 {                                                                  }
 {       Project JEDI                                               }
 {       OS independent Dynamic Loading Helpers                     }

+ 5 - 1
packages/winunits-jedi/src/jedi.inc

@@ -405,7 +405,11 @@
   {$ASMMODE Intel}
   {$ENDIF CPUI386 OR CPUX86_64}
   {$UNDEF BORLAND}
-   // FPC defines CPU* and Unix automatically
+  // FPC defines CPU* and Unix automatically
+  // CHAR is not known yet at this point, so SIZEOF(CHAR)) does not work. Not ideal...
+  {$IFDEF UNICODERTL}
+  {$DEFINE UNICODE}
+  {$ENDIF}
 {$ENDIF}
 
 {$IFDEF BORLAND}