paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed cgilazide uses clause

Browse Source 
git-svn-id: trunk@6284 -
This commit is contained in:
mattias 2004-11-22 22:00:21 +00:00
parent 0769547146
commit a6b3815b5f
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/cgi/ide/cgilazideintf.pas
View File

@ -153,7 +153,7 @@ end;
function TFileDescPascalUnitWithCGIDataModule.GetInterfaceUsesSection: string;
begin
Result:=inherited GetInterfaceUsesSection;
Result:=Result+',cgiModules';
Result:=Result+',LResources,cgiModules';
end;
function TFileDescPascalUnitWithCGIDataModule.GetLocalizedName: string;

2
components/codetools/finddeclarationtool.pas
View File

@ -55,7 +55,7 @@ interface
// verbosity
{ $DEFINE CTDEBUG}
{$DEFINE ShowTriedFiles}
{ $DEFINE ShowTriedFiles}
{ $DEFINE ShowTriedContexts}
{ $DEFINE ShowTriedBaseContexts}
{ $DEFINE ShowTriedParentContexts}

7
debugger/gdbmidebugger.pp
View File

@ -1533,9 +1533,9 @@ function TGDBMIDebugger.ProcessStopped(const AParams: String; const AIgnoreSigIn
var
S: String;
ObjAddr, ExceptionName, ExceptionMessage: String;
ResultList: TStringList;
//ResultList: TStringList;
Location: TDBGLocationRec;
OK: Boolean;
//OK: Boolean;
begin
if tfRTLUsesRegCall in FTargetFlags
then ObjAddr := '$eax'
@ -2654,6 +2654,9 @@ initialization
end.
{ =============================================================================
$Log$
Revision 1.57 2004/11/22 22:00:21 mattias
fixed cgilazide uses clause
Revision 1.56 2004/11/22 08:08:36 vincents
fixed fpc 1.0.x compilation