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

* Patch from Graeme Geldenhuys to fix some minor issues in code generation (bug ID 13779)

Browse Source 
git-svn-id: trunk@13897 -
This commit is contained in:
michael 2009-10-17 14:05:11 +00:00
parent 8fdf9dd80c
commit 0bcf5a8488
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/codegen/fpcgtiopf.pp
View File

@ -340,7 +340,7 @@ begin
EndMethod(Strings,S);
// AcceptVisitor
S:=BeginAcceptVisitor(Strings,C,ObjectClassName);
AddLn(Strings,'Result:=Result and (Visited.ObjectState in [posCreate,posdelete,posUpdate]);');
AddLn(Strings,'Result:=Result and (Visited.ObjectState in [posCreate,posDelete,posUpdate]);');
DecIndent;
EndMethod(Strings,S);
S:=BeginSetupParams(Strings,C,ObjectClassName,True);
@ -431,7 +431,7 @@ begin
// Common setup case
If (V in [voCreate,voUpdate]) and (UseCommonSetupParams) then
A:=Format('TUpdateCreate%sVisitor',[StripType(ObjectClassName)])
else If (V in [voCreate,voDelete,voUpdate,voCommonSetupParams]) then
else If (V in [voCreate,voDelete,voUpdate,voCommonSetupParams,voSingleSaveVisitor]) then
A:='TtiVisitorUpdate'
else
A:='TtiVisitorSelect';
@ -1226,7 +1226,7 @@ begin
end;
Initialization
RegisterCodeGenerator('tiOPF','tiOPF class and visitors for the data',TTiOPFCodeGenerator);
RegisterCodeGenerator('tiOPF','tiOPF classes and hard-coded visitors for the data',TTiOPFCodeGenerator);
Finalization
UnRegisterCodeGenerator(TTiOPFCodeGenerator);

2
packages/fcl-db/src/codegen/fpddcodegen.pp
View File

@ -1279,6 +1279,8 @@ begin
begin
Addln(Strings,'Unit '+CodeOptions.UnitName+';');
Addln(Strings);
Addln(Strings, '{$mode objfpc}{$H+}');
Addln(Strings);
Addln(Strings,'Interface');
Addln(Strings);
S:=GetInterfaceUsesClause;