Browse Source

* adapated for the new widestring manager

florian 20 years ago
parent
commit
179d942631
2 changed files with 17 additions and 10 deletions
  1. 9 5
      fcl/xml/xmlread.pp
  2. 8 5
      fcl/xml/xmlwrite.pp

+ 9 - 5
fcl/xml/xmlread.pp

@@ -380,7 +380,8 @@ end;
 
 {$IFDEF UsesFPCWidestrings}
 
-procedure SimpleWide2AnsiMove(source:pwidechar;dest:pchar;len:sizeint);
+
+{procedure SimpleWide2AnsiMove(source:pwidechar;dest:pchar;len:sizeint);
 var
   i : sizeint;
 begin
@@ -406,7 +407,7 @@ begin
      inc(source);
    end;
 end;
-
+}
 
 {$ENDIF}
 
@@ -423,8 +424,8 @@ begin
   {$IFDEF UsesFPCWidestrings}
   GetWideStringManager(MyWideStringManager);
 
-  MyWideStringManager.Wide2AnsiMoveProc:=@SimpleWide2AnsiMove;
-  MyWideStringManager.Ansi2WideMoveProc:=@SimpleAnsi2WideMove;
+  MyWideStringManager.Wide2AnsiMoveProc:=@defaultWide2AnsiMove;
+  MyWideStringManager.Ansi2WideMoveProc:=@defaultAnsi2WideMove;
   SetWideStringManager(MyWideStringManager, OldWideStringManager);
   try
   {$ENDIF}
@@ -1562,7 +1563,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.15  2005-02-14 17:13:18  peter
+  Revision 1.16  2005-03-14 21:10:12  florian
+    * adapated for the new widestring manager
+
+  Revision 1.15  2005/02/14 17:13:18  peter
     * truncate log
 
   Revision 1.14  2005/02/01 20:23:39  florian

+ 8 - 5
fcl/xml/xmlwrite.pp

@@ -430,7 +430,7 @@ end;
 
 {$IFDEF UsesFPCWidestrings}
 
-procedure SimpleWide2AnsiMove(source:pwidechar;dest:pchar;len:sizeint);
+{procedure SimpleWide2AnsiMove(source:pwidechar;dest:pchar;len:sizeint);
 var
   i : sizeint;
 begin
@@ -455,7 +455,7 @@ begin
      inc(dest);
      inc(source);
    end;
-end;
+end;}
 
 {$ENDIF}
 
@@ -483,8 +483,8 @@ begin
   {$IFDEF UsesFPCWidestrings}
   GetWideStringManager(MyWideStringManager);
 
-  MyWideStringManager.Wide2AnsiMoveProc:=@SimpleWide2AnsiMove;
-  MyWideStringManager.Ansi2WideMoveProc:=@SimpleAnsi2WideMove;
+  MyWideStringManager.Wide2AnsiMoveProc:=@defaultWide2AnsiMove;
+  MyWideStringManager.Ansi2WideMoveProc:=@defaultAnsi2WideMove;
   SetWideStringManager(MyWideStringManager, OldWideStringManager);
   try
   {$ENDIF}
@@ -591,7 +591,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.18  2005-02-14 17:13:18  peter
+  Revision 1.19  2005-03-14 21:10:12  florian
+    * adapated for the new widestring manager
+
+  Revision 1.18  2005/02/14 17:13:18  peter
     * truncate log
 
   Revision 1.17  2005/02/01 20:23:39  florian