paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 13:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

macos: build fixes (powerpc), system unit at least should build now, after an IE in the MPW assembler writer is fixed

Browse Source 
git-svn-id: trunk@36880 -
This commit is contained in:
Károly Balogh 2017-08-12 12:12:40 +00:00
parent 677c35c083
commit fa9a34f738
3 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/macos/macostp.inc
View File

@ -41,12 +41,13 @@ type
SignedByte = shortint;
SignedBytePtr = ^SignedByte;
SInt8 = -128..127;
SInt16 = INTEGER;
SInt8 = ShortInt; //-128..127;
SInt16 = SmallInt; // INTEGER;
SInt32 = LONGINT;
UInt8 = 0..255;
UInt16 = WORD;
UInt32 = LONGWORD;
// Overlapping types are now declared in the System unit (KB)
//UInt8 = 0..255;
//UInt16 = WORD;
//UInt32 = LONGWORD;
IntegerPtr = ^INTEGER;
LongIntPtr = ^LONGINT;

4
rtl/macos/macutils.inc
View File

@ -334,7 +334,7 @@ end;
a path to the directory, where the file or directory is located,
is returned. Functioning even with System 6.}
function FSpGetFullPath (spec: FSSpec; var fullPath: AnsiString;
function FSpGetFullPath (spec: FSSpec; var fullPath: RawByteString;
parent: Boolean): OSErr;
var
@ -406,7 +406,7 @@ begin
PathArgToFSSpec := 3; {Empty paths are invalid paths}
end;
function PathArgToFullPath(s: string; var fullpath: AnsiString): Integer;
function PathArgToFullPath(s: string; var fullpath: RawByteString): Integer;
var
err: OSErr;

10
rtl/macos/sysfile.inc
View File

@ -65,8 +65,10 @@ end;
procedure do_rename(p1,p2 : pchar; p1changeable, p2changeable: boolean);
var
s1,s2: AnsiString;
s1,s2: RawByteString;
begin
s1:=''; { to fix warnings }
s2:='';
{$ifdef MACOS_USE_STDCLIB}
InOutRes:= PathArgToFullPath(p1, s1);
if InOutRes <> 0 then
@ -216,7 +218,7 @@ var
fh: Longint;
oflags : longint;
fullPath: AnsiString;
fullPath: RawByteString;
finderInfo: FInfo;
@ -307,7 +309,9 @@ begin
Errno2InOutRes;
if fh <> -1 then
begin
if FileRec(f).mode in [fmoutput, fminout, fmappend] then
if (FileRec(f).mode = fmOutput) or
(FileRec(f).mode = fmInout) or
(FileRec(f).mode = fmAppend) then
begin
{Change of filetype and creator is always done when a file is opened
for some kind of writing. This ensures overwritten Darwin files will