paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Undo last wrong commit

Browse Source 
git-svn-id: trunk@6118 -
This commit is contained in:
pierre 2007-01-22 04:03:46 +00:00
parent f876187194
commit 87c0a048e5
13 changed files with 117 additions and 198 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ide/compiler/Makefile
View File

@ -2,7 +2,7 @@
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2007/01/18] # Don't edit, this file is generated by FPCMake Version 2.0.0 [2007/01/18]
# #
default: all default: all
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-wince arm-gba arm-nds arm-embedded powerpc64-linux powerpc64-embedded MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-embedded
BSDs = freebsd netbsd openbsd darwin BSDs = freebsd netbsd openbsd darwin
UNIXs = linux $(BSDs) solaris qnx UNIXs = linux $(BSDs) solaris qnx
LIMIT83fs = go32v2 os2 emx watcom LIMIT83fs = go32v2 os2 emx watcom
@ -306,6 +306,9 @@ endif
ifeq ($(FULL_TARGET),i386-embedded) ifeq ($(FULL_TARGET),i386-embedded)
override TARGET_UNITS+=compunit override TARGET_UNITS+=compunit
endif endif
ifeq ($(FULL_TARGET),i386-symbian)
override TARGET_UNITS+=compunit
endif
ifeq ($(FULL_TARGET),m68k-linux) ifeq ($(FULL_TARGET),m68k-linux)
override TARGET_UNITS+=compunit override TARGET_UNITS+=compunit
endif endif
@ -393,6 +396,9 @@ endif
ifeq ($(FULL_TARGET),arm-embedded) ifeq ($(FULL_TARGET),arm-embedded)
override TARGET_UNITS+=compunit override TARGET_UNITS+=compunit
endif endif
ifeq ($(FULL_TARGET),arm-symbian)
override TARGET_UNITS+=compunit
endif
ifeq ($(FULL_TARGET),powerpc64-linux) ifeq ($(FULL_TARGET),powerpc64-linux)
override TARGET_UNITS+=compunit override TARGET_UNITS+=compunit
endif endif
@ -454,6 +460,9 @@ endif
ifeq ($(FULL_TARGET),i386-embedded) ifeq ($(FULL_TARGET),i386-embedded)
override COMPILER_OPTIONS+=-Ur -dNOCATCH override COMPILER_OPTIONS+=-Ur -dNOCATCH
endif endif
ifeq ($(FULL_TARGET),i386-symbian)
override COMPILER_OPTIONS+=-Ur -dNOCATCH
endif
ifeq ($(FULL_TARGET),m68k-linux) ifeq ($(FULL_TARGET),m68k-linux)
override COMPILER_OPTIONS+=-Ur -dNOCATCH override COMPILER_OPTIONS+=-Ur -dNOCATCH
endif endif
@ -541,6 +550,9 @@ endif
ifeq ($(FULL_TARGET),arm-embedded) ifeq ($(FULL_TARGET),arm-embedded)
override COMPILER_OPTIONS+=-Ur -dNOCATCH override COMPILER_OPTIONS+=-Ur -dNOCATCH
endif endif
ifeq ($(FULL_TARGET),arm-symbian)
override COMPILER_OPTIONS+=-Ur -dNOCATCH
endif
ifeq ($(FULL_TARGET),powerpc64-linux) ifeq ($(FULL_TARGET),powerpc64-linux)
override COMPILER_OPTIONS+=-Ur -dNOCATCH override COMPILER_OPTIONS+=-Ur -dNOCATCH
endif endif
@ -601,6 +613,9 @@ endif
ifeq ($(FULL_TARGET),i386-embedded) ifeq ($(FULL_TARGET),i386-embedded)
override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET)
endif endif
ifeq ($(FULL_TARGET),i386-symbian)
override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET)
endif
ifeq ($(FULL_TARGET),m68k-linux) ifeq ($(FULL_TARGET),m68k-linux)
override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET)
endif endif
@ -688,6 +703,9 @@ endif
ifeq ($(FULL_TARGET),arm-embedded) ifeq ($(FULL_TARGET),arm-embedded)
override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET)
endif endif
ifeq ($(FULL_TARGET),arm-symbian)
override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET)
endif
ifeq ($(FULL_TARGET),powerpc64-linux) ifeq ($(FULL_TARGET),powerpc64-linux)
override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) override COMPILER_INCLUDEDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET)
endif endif
@ -748,6 +766,9 @@ endif
ifeq ($(FULL_TARGET),i386-embedded) ifeq ($(FULL_TARGET),i386-embedded)
override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems
endif endif
ifeq ($(FULL_TARGET),i386-symbian)
override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems
endif
ifeq ($(FULL_TARGET),m68k-linux) ifeq ($(FULL_TARGET),m68k-linux)
override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems
endif endif
@ -835,6 +856,9 @@ endif
ifeq ($(FULL_TARGET),arm-embedded) ifeq ($(FULL_TARGET),arm-embedded)
override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems
endif endif
ifeq ($(FULL_TARGET),arm-symbian)
override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems
endif
ifeq ($(FULL_TARGET),powerpc64-linux) ifeq ($(FULL_TARGET),powerpc64-linux)
override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems override COMPILER_UNITDIR+=$(COMPILERDIR) $(COMPILERDIR)/$(CPU_TARGET) $(COMPILERDIR)/targets $(COMPILERDIR)/systems
endif endif
@ -1167,6 +1191,10 @@ EXEEXT=.gba
SHAREDLIBEXT=.so SHAREDLIBEXT=.so
SHORTSUFFIX=gba SHORTSUFFIX=gba
endif endif
ifeq ($(OS_TARGET),symbian)
SHAREDLIBEXT=.dll
SHORTSUFFIX=symbian
endif
else else
ifeq ($(OS_TARGET),go32v1) ifeq ($(OS_TARGET),go32v1)
PPUEXT=.pp1 PPUEXT=.pp1
@ -1639,6 +1667,9 @@ endif
ifeq ($(FULL_TARGET),i386-embedded) ifeq ($(FULL_TARGET),i386-embedded)
REQUIRE_PACKAGES_RTL=1 REQUIRE_PACKAGES_RTL=1
endif endif
ifeq ($(FULL_TARGET),i386-symbian)
REQUIRE_PACKAGES_RTL=1
endif
ifeq ($(FULL_TARGET),m68k-linux) ifeq ($(FULL_TARGET),m68k-linux)
REQUIRE_PACKAGES_RTL=1 REQUIRE_PACKAGES_RTL=1
endif endif
@ -1726,6 +1757,9 @@ endif
ifeq ($(FULL_TARGET),arm-embedded) ifeq ($(FULL_TARGET),arm-embedded)
REQUIRE_PACKAGES_RTL=1 REQUIRE_PACKAGES_RTL=1
endif endif
ifeq ($(FULL_TARGET),arm-symbian)
REQUIRE_PACKAGES_RTL=1
endif
ifeq ($(FULL_TARGET),powerpc64-linux) ifeq ($(FULL_TARGET),powerpc64-linux)
REQUIRE_PACKAGES_RTL=1 REQUIRE_PACKAGES_RTL=1
endif endif

112
ide/cvsdiff.tdf
View File

@ -1,56 +1,56 @@
[Main] [Main]
Title="CVS Diff" Title="CVS Commit"
Size=(56,15) Size=(56,15)
CommandLine="diff %c% %revision% %filename%" CommandLine="diff %c% %revision% %filename%"
Default="filename" Default="filename"
[filename] [filename]
Type=InputLine Type=InputLine
Origin=(2,3) Origin=(2,3)
Size=(52,1) Size=(52,1)
Value=$EDNAME Value=$EDNAME
[label1] [label1]
Type=Label Type=Label
Origin=(2,2) Origin=(2,2)
Size=(52,1) Size=(52,1)
Text="~F~ile(s) to diff" Text="~F~ile(s) to diff"
Link="filename" Link="filename"
[revision] [revision]
Type=InputLine Type=InputLine
Origin=(2,5) Origin=(2,5)
Size=(52,1) Size=(52,1)
Value= Value=
[label2] [label2]
Type=Label Type=Label
Origin=(2,4) Origin=(2,4)
Size=(52,1) Size=(52,1)
Text="to specific ~r~evision" Text="to specific ~r~evision"
Link="revision" Link="revision"
[c] [c]
Type=CheckBox Type=CheckBox
Name="~C~ontext diff" Name="~C~ontext diff"
Origin=(2,6) Origin=(2,6)
Size=(25,1) Size=(25,1)
Default=On Default=On
On="-c" On="-c"
[b] [b]
Type=CheckBox Type=CheckBox
Name="~I~gnore blank changes" Name="~I~gnore blank changes"
Origin=(2,7) Origin=(2,7)
Size=(25,1) Size=(25,1)
Default=On Default=On
On="-b" On="-b"
[u] [u]
Type=CheckBox Type=CheckBox
Name="~U~nified diff" Name="~U~nified diff"
Origin=(2,8) Origin=(2,8)
Size=(25,1) Size=(25,1)
Default=Off Default=Off
On="-u" On="-u"

21
ide/fpcatch.pas
View File

@ -224,27 +224,10 @@ begin
exit; exit;
{$ifdef Windows} {$ifdef Windows}
if GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @Mode) then if GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @Mode) then
begin SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), (Mode or ENABLE_MOUSE_INPUT) and not ENABLE_PROCESSED_INPUT);
{$ifdef DEBUG}
Writeln(stderr,'Starting value of ConsoleMode is $',hexstr(Mode,8));
{$endif DEBUG}
SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)),
(Mode or ENABLE_MOUSE_INPUT) and not ENABLE_PROCESSED_INPUT);
{$ifdef DEBUG}
end
else
begin
Writeln(stderr,'Call to GetConsoleMode failed, GetLastError=',
GetLastError);
{$endif DEBUG}
end;
{$endif Windows} {$endif Windows}
{$ifdef go32v2} {$ifdef go32v2}
{ djgpp_set_ctrl_c(false);
I think that it was an error to put that here PM
djgpp_set_ctrl_c(false);
at least since that this is now handled in fpusrscr.pas unit
}
{$endif go32v2} {$endif go32v2}
{$ifdef HasSignal} {$ifdef HasSignal}
{$ifndef TP} {$ifndef TP}

19
ide/fpcompil.pas
View File

@ -220,8 +220,7 @@ const
procedure ParseUserScreen; procedure ParseUserScreen;
var var
Y,YMax : longint; y : longint;
LEvent : TEvent;
Text,Attr : String; Text,Attr : String;
DisplayCompilerWindow : boolean; DisplayCompilerWindow : boolean;
cc: integer; cc: integer;
@ -233,7 +232,7 @@ var
if pos(' $',Text)=1 then if pos(' $',Text)=1 then
begin begin
AText:=Text; AText:=Text;
Delete(Text,1,11); Delete(Text,1,10);
While pos(' ',Text)=1 do While pos(' ',Text)=1 do
Delete(Text,1,1); Delete(Text,1,1);
if pos('of ',Text)>0 then if pos('of ',Text)>0 then
@ -252,7 +251,7 @@ var
end end
else else
row:=0; row:=0;
CompilerMessageWindow^.AddMessage(V_Fatal or v_lineinfo,AText CompilerMessageWindow^.AddMessage(V_Fatal,AText
,ModuleName,row,1); ,ModuleName,row,1);
DisplayCompilerWindow:=true; DisplayCompilerWindow:=true;
end; end;
@ -283,21 +282,11 @@ begin
if not assigned(UserScreen) then if not assigned(UserScreen) then
exit; exit;
DisplayCompilerWindow:=false; DisplayCompilerWindow:=false;
YMax:=UserScreen^.GetHeight;
PushStatus('Parsing User Screen'); PushStatus('Parsing User Screen');
CompilerMessageWindow^.Lock; CompilerMessageWindow^.Lock;
for Y:=0 to YMax do for Y:=0 to UserScreen^.GetHeight do
begin begin
UserScreen^.GetLine(Y,Text,Attr); UserScreen^.GetLine(Y,Text,Attr);
if (y mod 10) = 0 then
begin
CompilerMessageWindow^.Unlock;
SetStatus('Parsing User Screen line '+IntToStr(y)+'/'+IntToStr(YMax));
CompilerMessageWindow^.Lock;
end;
GetKeyEvent(LEvent);
if (LEvent.What=evKeyDown) and (LEvent.KeyCode=kbEsc) then
break;
SearchBackTrace; SearchBackTrace;
InsertInMessages(' Fatal:',v_Fatal or v_lineinfo,true); InsertInMessages(' Fatal:',v_Fatal or v_lineinfo,true);
InsertInMessages(' Error:',v_Error or v_lineinfo,true); InsertInMessages(' Error:',v_Error or v_lineinfo,true);

5
ide/fpcygwin.pas
View File

@ -67,7 +67,7 @@ begin
GetCygwinFullName:='cygwin1.dll'; GetCygwinFullName:='cygwin1.dll';
end; end;
initialization begin
ModuleH:=GetModuleHandle('cygwin1'); ModuleH:=GetModuleHandle('cygwin1');
GetMem(CygwinFullName,MAX_PATH+1); GetMem(CygwinFullName,MAX_PATH+1);
GetModuleFileName(ModuleH,CygwinFullName,MAX_PATH+1); GetModuleFileName(ModuleH,CygwinFullName,MAX_PATH+1);
@ -81,6 +81,5 @@ initialization
FileInfo:=PFileInfo^; FileInfo:=PFileInfo^;
end; end;
FreeMem(InfoData,size); FreeMem(InfoData,size);
finalization {FreeMem(CygwinFullName,MAX_PATH+1);}
FreeMem(CygwinFullName,MAX_PATH+1);
end. end.

2
ide/fpide.pas
View File

@ -1326,7 +1326,7 @@ begin
cmHelpContents : HelpContents; cmHelpContents : HelpContents;
cmHelpIndex : HelpHelpIndex; cmHelpIndex : HelpHelpIndex;
cmHelpDebug : HelpDebugInfos; cmHelpDebug : HelpDebugInfos;
cmHelpTopicSearch: HelpTopicSearch; { cmHelpTopicSearch: HelpTopicSearch;}
cmHelpPrevTopic : HelpPrevTopic; cmHelpPrevTopic : HelpPrevTopic;
cmHelpUsingHelp : HelpUsingHelp; cmHelpUsingHelp : HelpUsingHelp;
cmHelpFiles : HelpFiles; cmHelpFiles : HelpFiles;

11
ide/fpredir.pas
View File

@ -695,12 +695,9 @@ end;
function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirStdErr : String) : boolean; function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirStdErr : String) : boolean;
{$ifdef Windows} {$ifdef Windows}
var var
mode,modebefore : word; mode : word;
{$endif Windows} {$endif Windows}
Begin Begin
{$ifdef Windows}
GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @modebefore);
{$endif Windows}
RedirErrorOut:=0; RedirErrorIn:=0; RedirErrorError:=0; RedirErrorOut:=0; RedirErrorIn:=0; RedirErrorError:=0;
ExecuteResult:=0; ExecuteResult:=0;
IOStatus:=0; IOStatus:=0;
@ -718,10 +715,10 @@ Begin
(RedirErrorIn=0) and (RedirErrorError=0) and (RedirErrorIn=0) and (RedirErrorError=0) and
(ExecuteResult=0); (ExecuteResult=0);
{$ifdef Windows} {$ifdef Windows}
// restore previous mode // reenable mouse events
GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @mode); GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @mode);
//mode:=mode or ENABLE_MOUSE_INPUT; mode:=mode or ENABLE_MOUSE_INPUT;
SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), modebefore); SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), mode);
{$endif Windows} {$endif Windows}
End; End;

61
ide/fpusrscr.pas
View File

@ -222,10 +222,6 @@ type
ConsoleMode,IdeMode : Dword; ConsoleMode,IdeMode : Dword;
IdeScreenMode : TVideoMode; IdeScreenMode : TVideoMode;
procedure BufferCopy(src,dest : THandle); procedure BufferCopy(src,dest : THandle);
{$ifdef debug}
procedure Complain(St : string);
Procedure SetConsoleMode(FH : Handle;Mode : DWord);
{$endif debug}
end; end;
{$endif} {$endif}
@ -986,12 +982,8 @@ end;
{ Seems to be missing in windows unit PM } { Seems to be missing in windows unit PM }
const const
ENABLE_INSERT_MODE = $20; ENABLE_INSERT_MODE = $20;
ENABLE_QUICK_EDIT_MODE = $40; ENABLE_QUICK_EDIT_MODE = $40;
ENABLE_EXTENDED_FLAGS = $80;
ENABLE_AUTO_POSITION = $100;
procedure UpdateFileHandles; procedure UpdateFileHandles;
begin begin
@ -1029,7 +1021,6 @@ begin
GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @ConsoleMode); GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @ConsoleMode);
IdeMode:=ConsoleMode; IdeMode:=ConsoleMode;
{$ifdef debug} {$ifdef debug}
Complain('Starting ConsoleMode is $'+hexstr(ConsoleMode,8));
{define Windowsbigwin} {define Windowsbigwin}
{$endif debug} {$endif debug}
{$ifdef Windowsbigwin} {$ifdef Windowsbigwin}
@ -1274,17 +1265,9 @@ end;
{ dummy for Windows as the Buffer screen { dummy for Windows as the Buffer screen
do hold all the info } do hold all the info }
procedure TWindowsScreen.SaveIDEScreen; procedure TWindowsScreen.SaveIDEScreen;
var
NowIdeMode : Dword;
begin begin
IdeScreenMode:=ScreenMode; IdeScreenMode:=ScreenMode;
GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @NowIdeMode); GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @IdeMode);
{$ifdef debug}
Complain('IDE ConsoleMode is $'+hexstr(NowIdeMode,8));
if NowIdeMode<>IdeMode then
Complain('is not equal to IDEMode $'+hexstr(IdeMode,8));
{$endif debug}
IdeMode:=NowIdeMode;
{ set the dummy buffer as active already now PM } { set the dummy buffer as active already now PM }
SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle); SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle);
UpdateFileHandles; UpdateFileHandles;
@ -1295,9 +1278,6 @@ end;
procedure TWindowsScreen.SaveConsoleScreen; procedure TWindowsScreen.SaveConsoleScreen;
begin begin
GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @ConsoleMode); GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @ConsoleMode);
{$ifdef debug}
Complain('ConsoleMode now is $'+hexstr(ConsoleMode,8));
{$endif debug}
{ set the dummy buffer as active already now PM } { set the dummy buffer as active already now PM }
SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle); SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle);
UpdateFileHandles; UpdateFileHandles;
@ -1327,9 +1307,7 @@ begin
{ Needed to force InitSystemMsg to use the right console handle } { Needed to force InitSystemMsg to use the right console handle }
DoneEvents; DoneEvents;
InitEvents; InitEvents;
IdeMode:=({IdeMode or }ENABLE_MOUSE_INPUT or IdeMode:=(IdeMode or ENABLE_MOUSE_INPUT or ENABLE_WINDOW_INPUT)
ENABLE_WINDOW_INPUT or
ENABLE_EXTENDED_FLAGS)
and not (ENABLE_PROCESSED_INPUT or and not (ENABLE_PROCESSED_INPUT or
ENABLE_LINE_INPUT or ENABLE_LINE_INPUT or
ENABLE_ECHO_INPUT or ENABLE_ECHO_INPUT or
@ -1362,39 +1340,6 @@ begin
IDEActive:=true; IDEActive:=true;
end; end;
{$ifdef debug}
procedure TWindowsScreen.Complain(St : string);
begin
if IDEActive then
DebugMessage('',St,0,0)
else
Writeln(stderr,St);
end;
procedure TWindowsScreen.SetConsoleMode(FH : Handle;Mode: DWord);
var
Test: DWord;
begin
If not Windows.SetConsoleMode(FH,Mode) then
begin
Complain('SetConsoleMode call failed GetLastError='+IntToStr(GetLastError));
end
else
begin
if not GetConsoleMode(FH,Test) then
begin
Complain('GetConsoleMode call failed GetLastError='+IntToStr(GetLastError));
end
else if (Test<>Mode) then
begin
Complain('GetConsoleMode result '+IntToStr(Test)+' <> '+
IntToStr(Mode));
end;
end;
end;
{$endif DEBUG}
{$endif} {$endif}
{**************************************************************************** {****************************************************************************

4
ide/globdir.inc
View File

@ -32,9 +32,9 @@
{$define HasSignal} {$define HasSignal}
{$define FSCaseInsensitive} {$define FSCaseInsensitive}
{$define HasSysMsgUnit} {$define HasSysMsgUnit}
{$ifdef EXTDEBUG} {$ifdef DEBUG}
{$define USE_GRAPH_SWITCH} {$define USE_GRAPH_SWITCH}
{$endif EXTDEBUG} {$endif DEBUG}
{$endif} {$endif}
{$ifdef Linux} {$ifdef Linux}

16
ide/test.pas
View File

@ -88,7 +88,6 @@ var Hello : word;
Pointer2: PObj; Pointer2: PObj;
ClassVar1: TClass; ClassVar1: TClass;
ClassVar2: TClass2; ClassVar2: TClass2;
ClassClass: Class of TObject;
Obj1: TObj; Obj1: TObj;
Obj2: TObj2; Obj2: TObj2;
CharArray : Array[1..2000] of char; CharArray : Array[1..2000] of char;
@ -131,17 +130,6 @@ begin
X:=7; X:=7;
end; end;
procedure TestOverload;
begin
Writeln('Procedure without argument called');
end;
procedure TestOverload(arg : string);
begin
Writeln('Procedure with one argument called');
Writeln('argument is ',arg);
end;
function Func1(x,z : word; var y : boolean; const r: TRecord): shortint; function Func1(x,z : word; var y : boolean; const r: TRecord): shortint;
var loc : string; var loc : string;
@ -193,8 +181,6 @@ BEGIN
SingleArrayArray[i,j]:=i*j; SingleArrayArray[i,j]:=i*j;
ClassVar1:=TClass2.create; ClassVar1:=TClass2.create;
ClassClass:=TClass2.ClassType;
Obj1.Init; Obj1.Init;
pointer2:=@Obj1; pointer2:=@Obj1;
Writeln('Obj1.Z=',Obj1.Z); Writeln('Obj1.Z=',Obj1.Z);
@ -207,8 +193,6 @@ BEGIN
Writeln('ParamCount = ',ParamCount); Writeln('ParamCount = ',ParamCount);
For i:=0 to paramcount do For i:=0 to paramcount do
writeln('Paramstr(',i,') = '+Paramstr(i)); writeln('Paramstr(',i,') = '+Paramstr(i));
TestOverload;
TestOverload('Test');
writeln(IsOdd(3)); writeln(IsOdd(3));
writeln(Func1(5,5,Bool,T)); writeln(Func1(5,5,Bool,T));
new(X); new(X);

19
ide/wconsole.pas
View File

@ -48,13 +48,8 @@ Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
implementation implementation
{$ifdef Windows} {$ifdef Windows}
uses uses
wutils,
windows; windows;
{$endif Windows} {$endif Windows}
{$ifdef GO32V2}
uses
Dpmiexcp;
{$endif GO32V2}
Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode); Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
Begin Begin
@ -62,15 +57,10 @@ Begin
TCGetAttr(1,ConsoleMode); TCGetAttr(1,ConsoleMode);
{$endif UNIX} {$endif UNIX}
{$ifdef Windows} {$ifdef Windows}
if not GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode) then GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode);
DebugMessage('','Call to GetConsoleMode failed, GetLastError='+
IntToStr(GetLastError),0,0);
{$endif Windows} {$endif Windows}
{$ifdef go32v2} {$ifdef go32v2}
if djgpp_set_ctrl_c(false) then ConsoleMode:=0;
ConsoleMode:=1
else
ConsoleMode:=0;
{$endif go32v2} {$endif go32v2}
{$ifdef netware} {$ifdef netware}
ConsoleMode:=0; ConsoleMode:=0;
@ -83,12 +73,9 @@ Begin
TCSetAttr(1,TCSANOW,ConsoleMode); TCSetAttr(1,TCSANOW,ConsoleMode);
{$endif UNIX} {$endif UNIX}
{$ifdef Windows} {$ifdef Windows}
if not SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode) then SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE),ConsoleMode);
DebugMessage('','Call to SetConsoleMode failed, GetLastError='+
IntToStr(GetLastError),0,0);
{$endif Windows} {$endif Windows}
{$ifdef go32v2} {$ifdef go32v2}
djgpp_set_ctrl_c((ConsoleMode and 1)<>0);
{$endif go32v2} {$endif go32v2}
End; End;

3
ide/whtmlhlp.pas
View File

@ -1331,8 +1331,7 @@ begin
DebugMessage(Name,Link+' not found',1,1); DebugMessage(Name,Link+' not found',1,1);
{$endif DEBUG} {$endif DEBUG}
end; end;
if HTMLFile<>nil then if HTMLFile<>nil then Dispose(HTMLFile, Done);
Dispose(HTMLFile, Done);
if BookMark='' then if BookMark='' then
T^.StartNamedMark:=0 T^.StartNamedMark:=0
else else

6
ide/wutils.pas
View File

@ -200,14 +200,14 @@ const LastStrToIntResult : integer = 0;
procedure RegisterWUtils; procedure RegisterWUtils;
{$ifdef DEBUG}
Procedure WUtilsDebugMessage(AFileName, AText : string; ALine, APos : sw_word); Procedure WUtilsDebugMessage(AFileName, AText : string; ALine, APos : sw_word);
type type
TDebugMessage = procedure(AFileName, AText : string; ALine, APos : sw_word); TDebugMessage = procedure(AFileName, AText : string; ALine, APos : sw_word);
Const Const
DebugMessage : TDebugMessage = @WUtilsDebugMessage; DebugMessage : TDebugMessage = @WUtilsDebugMessage;
{$endif DEBUG}
implementation implementation
uses uses
@ -1350,11 +1350,13 @@ begin
{$endif} {$endif}
end; end;
{$ifdef DEBUG}
Procedure WUtilsDebugMessage(AFileName, AText : string; ALine, APos : sw_word); Procedure WUtilsDebugMessage(AFileName, AText : string; ALine, APos : sw_word);
begin begin
writeln(stderr,AFileName,' (',ALine,',',APos,') ',AText); writeln(stderr,AFileName,' (',ALine,',',APos,') ',AText);
end; end;
{$endif DEBUG}
BEGIN BEGIN
Randomize; Randomize;
END. END.