paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 20:11:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* renamed windows related units from win32 to win so it can contain ce and 64 bit stuff

Browse Source 
git-svn-id: trunk@213 -
This commit is contained in:
florian 2005-06-05 13:42:35 +00:00
parent 62121a9029
commit c97714de9f
7 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -398,7 +398,7 @@ compiler/systems/i_palmos.pas svneol=native#text/plain
compiler/systems/i_sunos.pas svneol=native#text/plain compiler/systems/i_sunos.pas svneol=native#text/plain
compiler/systems/i_watcom.pas svneol=native#text/plain compiler/systems/i_watcom.pas svneol=native#text/plain
compiler/systems/i_wdosx.pas svneol=native#text/plain compiler/systems/i_wdosx.pas svneol=native#text/plain
compiler/systems/i_win32.pas svneol=native#text/plain compiler/systems/i_win.pas svneol=native#text/plain
compiler/systems/mac_crea.txt svneol=native#text/plain compiler/systems/mac_crea.txt svneol=native#text/plain
compiler/systems/t_amiga.pas svneol=native#text/plain compiler/systems/t_amiga.pas svneol=native#text/plain
compiler/systems/t_atari.pas svneol=native#text/plain compiler/systems/t_atari.pas svneol=native#text/plain
@ -416,7 +416,7 @@ compiler/systems/t_palmos.pas svneol=native#text/plain
compiler/systems/t_sunos.pas svneol=native#text/plain compiler/systems/t_sunos.pas svneol=native#text/plain
compiler/systems/t_watcom.pas svneol=native#text/plain compiler/systems/t_watcom.pas svneol=native#text/plain
compiler/systems/t_wdosx.pas svneol=native#text/plain compiler/systems/t_wdosx.pas svneol=native#text/plain
compiler/systems/t_win32.pas svneol=native#text/plain compiler/systems/t_win.pas svneol=native#text/plain
compiler/tgobj.pas svneol=native#text/plain compiler/tgobj.pas svneol=native#text/plain
compiler/tokens.pas svneol=native#text/plain compiler/tokens.pas svneol=native#text/plain
compiler/utils/Makefile -text compiler/utils/Makefile -text

2
compiler/compiler.pas
View File

@ -202,7 +202,7 @@ uses
,i_wdosx ,i_wdosx
{$endif wdosx} {$endif wdosx}
{$ifdef win32} {$ifdef win32}
,i_win32 ,i_win
{$endif win32} {$endif win32}
{ assembler readers } { assembler readers }
{$ifdef i386} {$ifdef i386}

4
compiler/i386/cputarg.pas
View File

@ -50,8 +50,8 @@ implementation
{$ifndef NOTARGETOS2} {$ifndef NOTARGETOS2}
,t_os2 ,t_os2
{$endif} {$endif}
{$ifndef NOTARGETWIN32} {$ifndef NOTARGETWIN}
,t_win32 ,t_win
{$endif} {$endif}
{$ifndef NOTARGETNETWARE} {$ifndef NOTARGETNETWARE}
,t_nwm ,t_nwm

2
compiler/systems/i_win32.pas → compiler/systems/i_win.pas
View File

@ -19,7 +19,7 @@
**************************************************************************** ****************************************************************************
} }
{ This unit implements support information structures for win32. } { This unit implements support information structures for win32. }
unit i_win32; unit i_win;
interface interface

2
compiler/systems/t_wdosx.pas
View File

@ -31,7 +31,7 @@ implementation
uses uses
cutils, cutils,
fmodule,globals,systems, fmodule,globals,systems,
import,export,link,t_win32,i_wdosx; import,export,link,t_win,i_wdosx;
type type
timportlibwdosx=class(timportlibwin32) timportlibwdosx=class(timportlibwin32)

4
compiler/systems/t_win32.pas → compiler/systems/t_win.pas
View File

@ -19,7 +19,7 @@
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
**************************************************************************** ****************************************************************************
} }
unit t_win32; unit t_win;
{$i fpcdefs.inc} {$i fpcdefs.inc}
@ -34,7 +34,7 @@ interface
{$ifdef GDB} {$ifdef GDB}
gdb, gdb,
{$endif} {$endif}
import,export,link,cgobj,i_win32; import,export,link,cgobj,i_win;
const const

14
compiler/x86/cgx86.pas
View File

@ -142,9 +142,9 @@ unit cgx86;
S_NO,S_NO,S_NO,S_NO,S_T); S_NO,S_NO,S_NO,S_NO,S_T);
{$endif x86_64} {$endif x86_64}
{$ifndef NOTARGETWIN32} {$ifndef NOTARGETWIN}
winstackpagesize = 4096; winstackpagesize = 4096;
{$endif NOTARGETWIN32} {$endif NOTARGETWIN}
implementation implementation
@ -1644,7 +1644,7 @@ unit cgx86;
begin begin
case target_info.system of case target_info.system of
{$ifndef NOTARGETWIN32} {$ifndef NOTARGETWIN}
system_i386_win32, system_i386_win32,
{$endif} {$endif}
system_i386_freebsd, system_i386_freebsd,
@ -1687,18 +1687,18 @@ unit cgx86;
procedure tcgx86.g_stackpointer_alloc(list : taasmoutput;localsize : longint); procedure tcgx86.g_stackpointer_alloc(list : taasmoutput;localsize : longint);
{$ifdef i386} {$ifdef i386}
{$ifndef NOTARGETWIN32} {$ifndef NOTARGETWIN}
var var
href : treference; href : treference;
i : integer; i : integer;
again : tasmlabel; again : tasmlabel;
{$endif NOTARGETWIN32} {$endif NOTARGETWIN}
{$endif i386} {$endif i386}
begin begin
if localsize>0 then if localsize>0 then
begin begin
{$ifdef i386} {$ifdef i386}
{$ifndef NOTARGETWIN32} {$ifndef NOTARGETWIN}
{ windows guards only a few pages for stack growing, } { windows guards only a few pages for stack growing, }
{ so we have to access every page first } { so we have to access every page first }
if (target_info.system=system_i386_win32) and if (target_info.system=system_i386_win32) and
@ -1729,7 +1729,7 @@ unit cgx86;
end end
end end
else else
{$endif NOTARGETWIN32} {$endif NOTARGETWIN}
{$endif i386} {$endif i386}
list.concat(Taicpu.Op_const_reg(A_SUB,tcgsize2opsize[OS_ADDR],localsize,NR_STACK_POINTER_REG)); list.concat(Taicpu.Op_const_reg(A_SUB,tcgsize2opsize[OS_ADDR],localsize,NR_STACK_POINTER_REG));
end; end;