Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* fix for 4800

git-svn-id: trunk@2601 -
marco 19 years ago
parent
f4738689ba
commit
6974105177
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/extra/winunits/jwatlhelp32.pas

+ 1 - 1
packages/extra/winunits/jwatlhelp32.pas
View File 

@@ -352,7 +352,7 @@ const
 
   {$IFDEF UNICODE}
 
   {$IFDEF UNICODE}
 
   AWSuffix = 'W';
 
   AWSuffix = 'W';
 
   {$ELSE}
 
   {$ELSE}
 
-  AWSuffix = 'A';
 
+  AWSuffix = '';
 
   {$ENDIF UNICODE}
 
   {$ENDIF UNICODE}
 
 
 
 {$IFDEF DYNAMIC_LINK}
 
 {$IFDEF DYNAMIC_LINK}