Bugs with Borland C++ Builder Action

hi
i found some bugs:

1- when add a new “Borland C++ Builder Action”
select a project
in “advanced compiler”
the instruction set and data alignement aren’t loaded from the file ( alway at 80386 and byte )

2- when i use beforeaction (vbscript )

i try to set
Action.AdvCompilerOpt.InstructionSet = isPentiumAction.AdvCompilerOpt.DataAlignment = daQuadWord
the project FBTemp.BPR doesn’t use itand in the in “advanced compiler”
the instruction set and data alignement are set to 80386 and byte



sorry the first case work fine

The problem is that the constants you are using are not registered with the scripting engine. I’m not sure why as they were before. I just fixed that for the next build.

The work around for now is to use the values (this is copied from our source code so you can see the values :

FBScriptingServices.RegisterScriptConstant(‘coPentiumScheduling’,0);
FBScriptingServices.RegisterScriptConstant(‘coInlineIntrinsic’,1);
FBScriptingServices.RegisterScriptConstant(‘coInductionVariables’,2);
FBScriptingServices.RegisterScriptConstant(‘coCommonSubExpression’,3);

FBScriptingServices.RegisterScriptConstant(‘pcNone’,0);
FBScriptingServices.RegisterScriptConstant(‘pcUse’,1);
FBScriptingServices.RegisterScriptConstant(‘pcCache’,2);

FBScriptingServices.RegisterScriptConstant(‘cwNone’,0);
FBScriptingServices.RegisterScriptConstant(‘cwAll’,1);
FBScriptingServices.RegisterScriptConstant(‘cwSelected’,2);

FBScriptingServices.RegisterScriptConstant(‘ssFullDebug’,0);
FBScriptingServices.RegisterScriptConstant(‘ssRelease’,1);

FBScriptingServices.RegisterScriptConstant(‘is386’,0);
FBScriptingServices.RegisterScriptConstant(‘is486’,1);
FBScriptingServices.RegisterScriptConstant(‘isPentium’,2);
FBScriptingServices.RegisterScriptConstant(‘isPentiumPro’,3);

FBScriptingServices.RegisterScriptConstant(‘daByte’,0);
FBScriptingServices.RegisterScriptConstant(‘daWord’,1);
FBScriptingServices.RegisterScriptConstant(‘daDoubleWord’,2);
FBScriptingServices.RegisterScriptConstant(‘daQuadWord’,3);

FBScriptingServices.RegisterScriptConstant(‘ccC’,0);
FBScriptingServices.RegisterScriptConstant(‘ccPascal’,1);
FBScriptingServices.RegisterScriptConstant(‘ccRegister’,2);
FBScriptingServices.RegisterScriptConstant(‘ccStdCall’,3);

FBScriptingServices.RegisterScriptConstant(‘rvNone’,0);
FBScriptingServices.RegisterScriptConstant(‘rvAuto’,1);
FBScriptingServices.RegisterScriptConstant(‘rvKeyword’,2);

FBScriptingServices.RegisterScriptConstant(‘lcBorland’,0);
FBScriptingServices.RegisterScriptConstant(‘lcANSI’,1);
FBScriptingServices.RegisterScriptConstant(‘lcUnixV’,2);
FBScriptingServices.RegisterScriptConstant(‘lcKR’,3);

FBScriptingServices.RegisterScriptConstant(‘cmOff’,0);
FBScriptingServices.RegisterScriptConstant(‘cmSegments’,1);
FBScriptingServices.RegisterScriptConstant(‘cmPublics’,2);
FBScriptingServices.RegisterScriptConstant(‘cmDetailed’,3);

FBScriptingServices.RegisterScriptConstant(‘lwAll’,0);
FBScriptingServices.RegisterScriptConstant(‘lwSelected’,1);

FBScriptingServices.RegisterScriptConstant(‘mpAllCases’,0);
FBScriptingServices.RegisterScriptConstant(‘mpMultipleInheritance’,1);
FBScriptingServices.RegisterScriptConstant(‘mpSingleInheritance’,2);
FBScriptingServices.RegisterScriptConstant(‘mpSmallest’,3);

FBScriptingServices.RegisterScriptConstant(‘vtSmart’,0);
FBScriptingServices.RegisterScriptConstant(‘vtLocal’,1);
FBScriptingServices.RegisterScriptConstant(‘vtExternal’,2);
FBScriptingServices.RegisterScriptConstant(‘vtPublic’,3);

FBScriptingServices.RegisterScriptConstant(‘fa1’,0);
FBScriptingServices.RegisterScriptConstant(‘fa2’,1);
FBScriptingServices.RegisterScriptConstant(‘fa4’,2);
FBScriptingServices.RegisterScriptConstant(‘fa8’,3);

FBScriptingServices.RegisterScriptConstant(‘tdNone’,0);
FBScriptingServices.RegisterScriptConstant(‘tdLineNumbers’,1);
FBScriptingServices.RegisterScriptConstant(‘tdFull’,3);

FBScriptingServices.RegisterScriptConstant(‘csNone’,0);
FBScriptingServices.RegisterScriptConstant(‘csGlobals’,1);
FBScriptingServices.RegisterScriptConstant(‘csAll’,2);

FBScriptingServices.RegisterScriptConstant(‘twNone’,0);
FBScriptingServices.RegisterScriptConstant(‘twLevel1’,1);
FBScriptingServices.RegisterScriptConstant(‘twLevel2’,2);

FBScriptingServices.RegisterScriptConstant(‘ltNormal’,0);
FBScriptingServices.RegisterScriptConstant(‘ltExpanded’,1);