paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: sql parser:

Browse Source 
- fix for double precision followed by other subclauses (e.g. DEFAULT)
- of course, associated test

git-svn-id: trunk@27888 -
This commit is contained in:
reiniero 2014-06-07 09:55:15 +00:00
parent e1d9a068c0
commit 614bc64200
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sql/fpsqlparser.pas
View File

@ -1846,7 +1846,7 @@ begin
tsqlDouble:
begin
GetNextToken;
Consume(tsqlPrecision); //DOUBLE PRECISION
Expect(tsqlPrecision); //DOUBLE PRECISION
dt:=sdtDoublePrecision;
end;
tsqlFloat:

8
packages/fcl-db/tests/tcparser.pas
View File

@ -178,6 +178,7 @@ type
procedure TestSmallInt;
procedure TestFloat;
procedure TestDoublePrecision;
procedure TestDoublePrecisionDefault;
end;
{ TTestCheckParser }
@ -1794,6 +1795,13 @@ begin
TD:=TestType('DOUBLE PRECISION',[],sdtDoublePrecision);
end;
procedure TTestTypeParser.TestDoublePrecisionDefault;
var
TD : TSQLTypeDefinition;
begin
TD:=TestType('DOUBLE PRECISION DEFAULT 0',[],sdtDoublePrecision);
end;
procedure TTestTypeParser.TestBlobError1;
begin
FerrSource:='BLOB (1,)';