paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:09:15 +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;
Type
TJSType = (jstUNDEFINED,jstNull,jstBoolean,jstNumber,jstString,jstObject,jstReference,JSTCompletion);
TJSType = (jstUNDEFINED,jstNull,jstBoolean,jstNumber,jstString,jstObject,jstReference,jstCompletion);
TJSString = UnicodeString;
TJSChar = WideChar;

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

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