Hi,

I'm using configuration file created by install program, and I modified

that slightly.

Below is my PPC386.CFG

---------
#
# Example ppc386.cfg for Free Pascal Compiler Version 1.0.2 #

# ----------------------
# Defines (preprocessor)
# ----------------------

#
# nested #IFNDEF, #IFDEF, #ENDIF, #ELSE, #DEFINE, #UNDEF are allowed #
# -d is the same as #DEFINE
# -u is the same as #UNDEF
#

# When not m68k is defined at the commandline, define i386 #IFNDEF m68k
#DEFINE i386
#ENDIF

#
# Some examples (for switches see below, and the -? helppages) #
# Try compiling with the -dRELEASE or -dDEBUG on the commandline #

# For a release compile with optimizes and strip debuginfo #IFDEF RELEASE
-OG2p2
-Xs
#WRITE Compiling Release Version
#ENDIF

# For a debug version compile with debuginfo and all codegeneration checks on
#IFDEF DEBUG
-g
-Crtoi
#WRITE Compiling Debug Version
#ENDIF

# ----------------
# Parsing switches
# ----------------

# All assembler blocks are intel styled by default #-Rintel

# All assembler blocks are AT&T styled by default
#-Ratt

# All assembler blocks are directly copied to asm
#-Rdirect

# Semantic checking
# -S2 switch some Delphi 2 extensions on
# -Sc supports operators like C (*=,+=,/= and -=) # -Sd tries to be Delphi compatible
# -Se<x> compiler stops after the <x> errors (default is 1) # -Sg allow LABEL and GOTO
# -Sh Use ansistrings
# -Si support C++ styled INLINE
# -Sm support macros like C (global)
# -So tries to be TP/BP 7.0 compatible
# -Sp tries to be gpc compatible
# -Ss constructor name must be init (destructor must be done) # -St allow static keyword in objects
# Allow goto, inline, C-operators
-Sgic

# ---------------
# Code generation
# ---------------

# Uncomment the next line if you always want static/dynamic units by default
# (can be overruled with -CD, -CS at the commandline) #-CS
#-CD

# Set the default heapsize to 8Mb
#-Ch8000000

# Set default codegeneration checks (iocheck, overflow, range, stack) #-Ci
#-Co
#-Cr
#-Ct

# Optimizer switches
# -Og generate smaller code
# -OG generate faster code (default)
# -Or keep certain variables in registers (still BUGGY!!!) # -Ou enable uncertain optimizations (see docs) # -O1 level 1 optimizations (quick optimizations) # -O2 level 2 optimizations (-O1 + slower optimizations) # -O3 level 3 optimizations (same as -O2u)
# -Op target processor
# -Op1 set target processor to 386/486
# -Op2 set target processor to Pentium/PentiumMMX (tm) # -Op3 set target processor to PPro/PII/c6x86/K6 (tm)

# Optimize always for Size and Pentium
#-Og2p2

# -----------------------
# Set Filenames and Paths
# -----------------------

# Both slashes and backslashes are allowed in paths

# path to the messagefile, not necessary anymore but can be used to override
# the default language
#-Frf:\lang\fpc/msg/errore.msg
#-Frf:\lang\fpc/msg/errorn.msg
#-Frf:\lang\fpc/msg/errores.msg
#-Frf:\lang\fpc/msg/errord.msg
#-Frf:\lang\fpc/msg/errorr.msg

# path to the gcclib
#-Flf:\lang\fpc/lib

# searchpath for includefiles
# release them only if you know what you do
# because this could cause a rebuild of the runtime library # if you tell them compiler/ide to build the project (FK) #-Fif:\lang\fpc/source/rtl/inc;f:\lang\fpc/source/rtl/i386

# searchpath for objectfiles
#-Fof:\lang\fpc/source/rtl/inc;f:\lang\fpc/source/rtl/i386

# searchpath for units and other system dependent things -Fuf:\lang\fpc/units/$TARGET
-Fuf:\lang\fpc/units/$TARGET/*
-Fuf:\lang\fpc/units/$TARGET/rtl
-Fuf:\lang\fpc/units/$TARGET/api
-Fuf:\lang\work\units

# searchpath for libraries
#-Flf:\lang\fpc/lib
#-Fl/lib;/usr/lib

# searchpath for tools
#-FDf:\lang\fpc/bin/$TARGET
-FDf:\lang\emx\bin

# -------------
# Linking
# -------------

# generate always debugging information for GDB (slows down the compiling
# process)
#-gl

# always pass an option to the linker
#-k-s

# Always strip debuginfo from the executable
-Xs

# -------------
# Miscellaneous
# -------------

# Write always a nice FPC logo ;)
-l

# Verbosity
# e : Show errors (default) d : Show debug info # w : Show warnings u : Show used files # n : Show notes t : Show tried files # h : Show hints m : Show defined macros # i : Show general info p : Show compiled procedures # l : Show linenumbers c : Show conditionals # a : Show everything 0 : Show nothing (except errors)

# Display Info, Warnings, Notes and Hints
-viwnh
# If you don't want so much verbosity use
#-vw
--------

And below is short example that show the problem.

--------
uses

    DosCalls;

var
    Handle : Longint;
    ActionTaken : Longint;
    FPtr : Longint;
    RC : Longint;
begin
    RC :=  DosOpen( 'test.pas', Handle, ActionTaken, 0, 0, doOpen,
                doDenyNone or doRandom or doReadWrite, nil );
    if RC  0 then
    begin
        WriteLn('Open error!!! : ', RC );
        Exit;
    end;
    DosSetFilePtr( Handle, 0, dsRelative, FPtr );
    DosClose( Handle );
end.
---------

If there is 'cdecl' at declaration of helper, SYS3171 is reported,

else program terminated normally.

For better FPC !!!

from KO Myung-Hun...

Date sent: Wed, 25 Oct 2000 21:10:52 +0900
From: KO Myung-Hun
To: FPC mail
Subject: [fpc-devel]Hey, Tomas...
Send reply to:

Hi,

I'm using configuration file created by install program, and I modified that slightly. Below is my PPC386.CFG

.
.

I've saved your configuration file, replaced your paths with my own (I left -FD to point to my EMX directory, not to that one of FPC), and tried to compile a sample program with your PPC386.CFG in the current directory. -vt parameter showed me AS.EXE from the EMX directory was used (which is correct). Then I renamed AS.EXE from the FPC directory, so only that one from the EMX directory was present. It still worked without problems. So I guess your problem must be in something else. Could you try -vt as well, please?

Thanks

Tomas