paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: fixed case

Browse Source 
git-svn-id: trunk@38807 -
This commit is contained in:
Mattias Gaertner 2018-04-22 11:13:16 +00:00
parent 4909d43949
commit 5e32960f33
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-js/src/jsbase.pp
View File

@ -23,7 +23,7 @@ uses
Classes, SysUtils; Classes, SysUtils;
Type Type
TJSType = (jstUNDEFINED,jstNull,jstBoolean,jstNumber,jstString,jstObject,jstReference,JSTCompletion); TJSType = (jstUNDEFINED,jstNull,jstBoolean,jstNumber,jstString,jstObject,jstReference,jstCompletion);
TJSString = UnicodeString; TJSString = UnicodeString;
TJSChar = WideChar; TJSChar = WideChar;

2
packages/fcl-js/src/jswriter.pp
View File

@ -709,7 +709,7 @@ begin
end; end;
jstObject : ; jstObject : ;
jstReference : ; jstReference : ;
JSTCompletion : ; jstCompletion : ;
end; end;
if S='' then exit; if S='' then exit;
case S[1] of case S[1] of