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

* make it compiler for win32 and m68k

Browse Source
This commit is contained in:
carl 1998-07-07 13:29:48 +00:00
parent cd95f7a510
commit 72c44ae5a0
1 changed files with 10 additions and 9 deletions

19
rtl/inc/objects.pp
View File

@ -196,7 +196,7 @@ TYPE
FNameStr = String[79]; { DOS filename }
{$ENDIF}
{$IFDEF OS_WINDOWS} { WINDOWS DEFINE }
FNameStr = PChar; { Windows filename }
FNameStr = String; { Windows filename }
{$ENDIF}
{$IFDEF OS_OS2} { OS2 DEFINE }
FNameStr = String; { OS2 filename }
@ -205,13 +205,13 @@ TYPE
FNameStr = String; { OS2 filename }
{$ENDIF}
{$IFDEF OS_AMIGA}
??? FNameStr = PChar;
FNameStr = String;
{$ENDIF}
{$IFDEF OS_ATARI}
FNameStr = String[79]; { DOS filename }
{$ENDIF}
{$IFDEF OS_MAC}
???
FNameStr = String;
{$ENDIF}
{---------------------------------------------------------------------------}
@ -790,7 +790,9 @@ CONST
{$I objinc.inc}
{$ASMMODE ATT}
{$IFDEF CPU86}
{$I386_ATT}
{$ENDIF}
{---------------------------------------------------------------------------}
{ RegisterError -> Platforms DOS/DPMI/WINDOWS/OS2 - Checked 12Jun96 LdB }
@ -1183,12 +1185,8 @@ CONSTRUCTOR TDosStream.Init (FileName: FNameStr; Mode: Word);
VAR Success: Integer;
BEGIN
Inherited Init; { Call ancestor }
{$IFDEF OS_WINDOWS} { WIN CODE }
AnsiToOEM(FileName, FName); { Ansi to OEM }
{$ELSE} { DOS/DPMI/OS2 CODE }
FileName := FileName+#0; { Make asciiz }
Move(FileName[1], FName, Length(FileName)); { Create asciiz name }
{$ENDIF}
Handle := FileOpen(FName, Mode); { Open the file }
If (Handle <> 0) Then Begin { Handle valid }
Success := SetFilePos(Handle, 0, 2, StreamSize); { Locate end of file }
@ -2731,7 +2729,10 @@ END;
END.
{
$Log$
Revision 1.4 1998-05-30 14:24:42 peter
Revision 1.5 1998-07-07 13:29:48 carl
* make it compiler for win32 and m68k
Revision 1.4 1998/05/30 14:24:42 peter
* ATT asmparsing always
Revision 1.3 1998/05/25 09:50:04 peter